uses MMSystem; procedure TForm1.FormCreate(Sender: TObject); begin PlaySound('c:\Windows\Media\Ring08.wav', 0, SND_ASYNC); end;