[Gakuro]

Помогите плизз!!!
Не могу открыть wav-файл посредством PlaySound из OpenDialog (Button1 открывает диалог, Button2 играет файл):

Код:

uses MMSystem;

var myfile:PAnsiChar;

procedure TForm1.eventOnClick(Sender: TObject);
begin
  if sender=Button1 then
  begin
     if OpenDialog.Execute then myfile:=OpenDialog.Files.GetText
     else exit;
  end;
  if sender=Button2 then PlaySound(myfile,0,SND_ASYNC);
end;

Админ: Пользуемся тегами для оформления кода!

И ничего не играет, только раздаётся системный звук!