Воспроизведение миди формата

[Испанец91]

Здравствуйте форумчане, у меня проблема образовалась, не получается сделать чтобы воспроизводился файл с расширением mid. Я нашёл следующий кодв интернете, но он к сожалению не работает.Если кто может подскажите. А код который не сработал привожу ниже:



uses
MPlayer;

var
mp : TMediaPlayer;

procedure TForm1.Button1Click(Sender: TObject);
begin
with Sender as TButton do
case Tag of
0 :
begin
Tag := 1;
mp := TMediaPlayer.CreateParented(Handle) ;
mp.DeviceType := dtSequencer;
mp.FileName := 'c:\winnt\media\Canyon.mid';
mp.Wait:= True;
mp.Open;
mp.Play;
end;
1 :
begin
Tag := 0;
mp.Wait := True;
mp.Stop;
mp.Free;
end;
end;
end;

[Пепел Феникса]

1)кнопка для кого?
2)'c:\winnt\media\Canyon.mid' у вас есть этот файл?

[Испанец91]

Что значит кнопка #, а путь и миди файл я заменял на свой

[Пепел Феникса]

оформить код между с помощью тэга(сохраняется форматирование + подсветка)
попробуйте через PlaySound

[Испанец91]

Честно говоря не совсем врубаю как это?