Source position: DAV_GuiMidiKeys.pas line 83
type TGuiOnNoteOn = procedure(
Sender: TObject;
KeyNr: Byte;
Velocity: Single
) of object;