[delphi]Generowanie midi

Jaki fragment kodu będzie generował dźwięk midi o podanej częstoliwości lub wysokości (c2) i długości (np.2000milisekund)?
Za odpowiedź z góry dziękuję. :)

www.torry.net > TMidiGen

WinSDK poczytaj...

uses Windows, MMSystem;

var
  GHand: HMIDIOUT;
begin
  if MMSYSERR_NOERROR =
    midiOutOpen(@GHand, Cardinal(-1), 0, 0, CALLBACK_NULL) then
  begin
    midiOutShortMsg(GHand, MakeLong(MakeWord(144, 72), MakeWord(90, 0)));
    Sleep(2000);
    midiOutReset(GHand);
  end;
end.