uses mmsystem,...
. . . .
procedure TForm1.Button1Click(Sender: TObject);
begin
playsound('c:\winnt\media\chord.wav',0,snd_async);
end;