1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  devHandle: HMIDIIN; 
  midiRes: MMRESULT; 
  theMsg : cardinal; 
begin 
   { Callbacks not necessary for output } 
  devHandle := midiOutOpen( @devHandle, 1, 0, 0, CALLBACK_NULL ); 

  theMsg := DWORD(MidiMessage) Or 
            (DWORD(MidiData1) shl 8) Or 
            (DWORD(MidiData2) shl 16); 

  midiRes := midiOutShortMsg( devHandle, theMsg ); 

  midiInClose(devHandle); 
end;