[[seoane]]

Coloca en el evento OnClick del boton algo como esto:

Código Delphi [-]
uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound('c:\windows\media\chord.wav',0,SND_FILENAME or SND_ASYNC);
end;