Source position: msemidi.pas line 124
type trackeventty = procedure(
const sender: tobject;
var ainfo: midieventinfoty
) of object;