Uses MMsystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
Sndplaysound(PChar('MonFichier.wav'),SND_ASYNC);
end;