uses mmsystem; 
 
function Sound(s: string): boolean; 
begin 
  result := playsound(pchar(s), 0, SND_ASYNC); 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if not sound('SYSTEMSTART') then showmessage('Fehler'); 
end; 
 
{
SYSTEMSTART
SYSTEMEXIT 
SYSTEMASTERISK 
SYSTEMQUESTION 
SYSTEMHAND 
SYSTEMWELCOME 
SYSTEMEXCLAMATION 
SYSTEMDEFAULT 
}