Спасибо всем.. про будильник меня вдохновило.. я нашел сорс и это событие:
Код:
procedure TForm1.Timer2Timer(Sender: TObject);
var
ST:SystemTime;
begin
getlocaltime(ST);
if (ST.Whour=StrToInt(Edit1.Text))and (ST.WMinute=StrToInt(Edit2.Text)) then beep;
end;