спасибо.
пробовал вот так :
MediaPlayer1.FileName:='c:\ping';
MediaPlayer1.Open;
MediaPlayer1.Play;
но это ерунда какая-то.
MediaPlayer1.FileName:='c:\ping';
MediaPlayer1.Open;
MediaPlayer1.Play;
sndPlaySound(pchar(filename), SND_ASYNC);
procedure TForm1.Button2Click(Sender: TObject);
begin
sndPlaySound('c:\ping.wmf', SND_ASYNC);
end;