Source position: midimanager.pas line 14
type TOnMidiManagerDeviceAdded = procedure(
Sender: TObject;
deviceId: Integer;
deviceName: string;
productId: string;
manufacture: string
) of object;