Deutsches Lazarusforum

Wenn es dir nur um einen Sound geht und nicht mehrere gleichzeitig, dann reicht schon: uses mmsystem,..

procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('bang_3.wav', 0, SND_FILENAME or SND_ASYNC);
end.

Funktioniert nur unter Windows und die Datei muss eine Wave-datei sein ...