MediaPlayer i OpenDialog

[b]Moje pierwsze pytanie[/b]
Jak odegrać plik dzwiękowy który wybrałem za pomocą komponentu Opendialog.
na razie zrobiłem coś takiego:
procedure TForm1.Button1Click(Sender: TObject);
var
a:tfilename;
begin
if opendialog1.Execute then
begin
mediaplayer1.FileName:=a;
mediaplayer1.Open;
mediaplayer1.Play;
end;
end; [???]

ale pokazuje się błąd:
<font color="red">Nie można ustalić typu urządzenia na podstawie podanego rozszerzenia pliku </span>:-[
[b]I drugie pytanko[/b]
Jak zrobić to samo tylko z funkcją PLAYSOUND
Prosze o POSTY(Od razu thanks za nie [cya] )

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.FileName:=OpenDialog1.FileName;
mediaplayer1.Open;
mediaplayer1.Play;
end;
end;

PS: uzywaj tagow zamiast recznie klepać

Co do playsound..
wez przyklad z FAQ i zamiast sciezki daj:

uses mmSystem
var
S:String;
begin
if OpenDialog1.Execute then
S:=OpenDialog1.Filename;
PlaySound(PChar(S), 0, SND_FILENAME);
end;

http://http://4programmers.net/view_faq.php?id=24

Ale lofix jestes cfany ja podalem kod to ty moj usuneles i swoj wklepales ;)))

//Tak, bardzo cwany..tyle ze twoj kod sie nadawal..na drzwi do lasu... [glowa]
Jak ma dzialać funckja

OpenDialog.Execute;
MPlayer.play=OpenDialog.Filename;

<font color="red">Error - No MCI device Open</span>
Sprawdz czy to Ci zadziała jak powinno - lofix

Moze cos przez pomylke zle wkleilem ale kompilowalo sie jesli zle to sorx

PlaySound(PChar(s), 0, SND_FILENAME);