1:
2:
3:

MediaPlayer1.FileName:=Pfad+Dateiname;
MediaPlayer1.Open;
MediaPlayer1.Play;					

1:

beep;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 uses
mmsystem

procedure TForm1.Button1Click(Sender: TObject);
begin
  sndPlaySound(PChar('C:\Datei.wav'),SND_SYNC);
end;

SND_SYNC  = Während die Datei abgespielt wird, steht die Anwendung
SND_ASYNC = Die Datei wird unabhängig vom Programm abgespielt.
SND_LOOP  = Immer wieder und immer wieder

procedure TForm1.Button2Click(Sender: TObject);
begin
  sndPlaySound(nil,0);
end;