[NumLock]

и в чем проблема:

Код:

var
  Form1: TForm1;
  s: String;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  PlaySound(PAnsiChar(s), 0, SND_FILENAME or SND_ASYNC or SND_NODEFAULT);
end;

?