Звук в Delphi

[апельсинка]

Подскажите, пжл, как закодировать мелодию по аккордам в Delphi?
Поскажите, почему не работает код для имитатора пианино???

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, mmsystem, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

hMidi :integer;
midimsg :integer; //миди сообщение
no:integer; //нота 
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
midiOutOpen(@hmidi, 0, 0, 0, 0);
Form1.KeyPreview:= true;
end;



procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='1' then no:=60 ; //c
if key='2' then no:=62 ; //d
if key='3' then no:=64 ; //e
if key='4' then no:=65 ; //f
if key='5' then no:=67 ; //g
if key='6' then no:=69 ; //a
if key='7' then no:=71 ; //b
if key='8' then no:=72 ; //c
if key='9' then no:=74 ; //d
if key='0' then no:=76 ; //e
if key='-' then no:=77 ; //f
if key='=' then no:=79 ; //g


//формируем сообщение
midimsg := $90 + ((no) * $100) + (127 * $10000) + 0;
//отправляем его
midiOutShortMsg (hmidi, midimsg);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
midiOutClose(hmidi);
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=ord('1') then no:=60; //c
if key=ord('2') then no:=62 ; //d
if key=ord('3') then no:=64 ; //e
if key=ord('4') then no:=65; //f
if key=ord('5') then no:=67 ; //g
if key=ord('6') then no:=69; //a
if key=ord('7') then no:=71 ; //b
if key=ord('8') then no:=72 ; //c
if key=ord('9') then no:=74 ; //d
if key=ord('0') then no:=76; //e
if key=ord('-') then no:=77 ; //f
if key=ord('=') then no:=79 ; //g

//формируем сообщение
midimsg := $80 + ((no) * $100) +0 ;
//отправляем его
midiOutShortMsg (hmidi, midimsg);
end;

end.

Прочитайте правила раздела и оформляйте код, как положено.
Кроме того, обратите внимание на пункт правил 3.

[mutabor]

Midi пианино

[апельсинка]

Огромное спасибо! Очень помогли!!!

[IgoRek125]

Потрясающе получилось