Source position: bs_mad.pas line 129
type TMessageFunc = function(
P1: Pointer;
P2: Pointer;
var l: LongWord
):Integer;