Source position: midimanager.pas line 23
type TMidiManagerEvent = procedure(
Sender: TObject;
info: Integer;
data: Int64
) of object;