Para reproducir un sonido WAV, puede usar un objeto TMediaPlayer, pero si quiere algo rápido, la forma más fácil es llamando a la función API sndPlaySound (declarada en la unidad mmsystem). Por ejemplo:

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  sndPlaySound('prueba.wav',  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
end;

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

Publicado el: 2004-03-07