После какого-то события воспроизвести звук

[ubun]

Как в Delphi после определенного события в воспроизвести звук.
Типа будильник, сигнализация.

[dmitriegorovih]

Как в Delphi после определенного события в воспроизвести звук.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mediaplayer1.Play;
end;

[asmodey1]

Поиском принципиально не пользуетесь ?
http://www.programmersforum.ru/showthread.php?t=7889

[ubun]

спасибо!
Я сделал так:
uses
....
mmsystem ;

....

procedure ....

begin
PlaySound();
end;