Мда, прошу прощения, выше дана неверная правка, я немного обознался, тебе придется либо загнать
procedure DoMidiInData( const aDeviceIndex: integer; const aStatus, aData1, aData2: byte );
в класс, либо править midi.pas
P.S: предпочтительнее "в классобъект"