MIDI - клавиатура и Delphi

//---------------------------------------------------
// Тест приема сообщений с MIDI-синтезатора
// подключение по USB
// Author: Бадло Сергей Григорьевич
// H-page: [url]http://raxp.radioliga.com[/url]
// Cистемные требования: Win 32
// Описание: процесс с калбэком на MIDI сообщения 
// с отрисовкой на канвасе экрана
//---------------------------------------------------
 
program raxp_midi_in;
 
 
uses Messages, Windows, classes, mmsystem;
 
 
type
  sample = class
  public
    constructor Create;
    destructor Destroy; override;
    procedure WndProc(var Msg:TMessage);
  end;
 
 
var
  Msg: tmsg;
  smp: sample;
  FWND: HWND;
  //
  _hdc: hDC;
  // параметры для midi
  _in: HMIDIIn;
 
 
// выплюнем на экран то, что приходит в MIDI
procedure midiCallback(handle: HMIDIIn; uMsg: uint; dwInstance, dwParam1, dwParam2: dword); stdcall;
var t, t1, t2, t3, text: string;
begin
 RedrawWindow(GetDesktopWindow,nil,0,RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN);
 
 str(dwInstance, t1);
 str(dwParam1, t2);
 str(dwParam2, t3);
 str(uMsg, text);
 
 t:= t1 + ' | ' + t2 + ' | ' + t3;
 sleep(100);
 TextOut(_hdc, 100, 70, pansichar(t), length(t));
 TextOut(_hdc, 100, 100, pansichar(text), length(text));
end;
 
 
 
procedure sample.WndProc(var Msg:TMessage);
begin
 case dword(Msg.lparam) of
  WM_MBUTTONDOWN : ;
  WM_LBUTTONUP   : ;
  WM_RBUTTONUP   : ;
 end
end;
 
 
constructor sample.Create;
Begin
 inherited Create;
 FWnd:= AllocateHWnd(WndProc);
 //
 _hdc:= GetDC(0);
 //
 midiInOpen(@_In, 0, cardinal(@midiCallback), 0, CALLBACK_FUNCTION);
 midiInStart(_In)
End;
 
destructor sample.Destroy;
Begin
 midiInStop(_In);
 midiInReset(_In);
 midiOutClose(_In);
 
 ReleaseDC(0, _hdc);
 RedrawWindow(GetDesktopWindow,nil,0,RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN);
 //
 deAllocateHWnd(fwnd);
 inherited Destroy
End;
// END СЕРВИС МОДУЛЬ ----------------------------------------------------------
 
 
 
begin
 smp:= sample.Create;
 
 try while GetMessage(Msg, 0, 0, 0) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg)
 end
 finally smp.Free end
end.

MessageBox(0, PChar(text), PChar(t), 0);