Будильник

procedure TForm1.Timer1Timer(Sender: TObject);
var min,m:word;
begin
min:=aMin+5;
tr:=Time;
DecodeTime(tr,Hour,Min,Sec,MSec);
DecodeTime(Form2.AlarmClock.Time, aHour, aMin, aSec, aMSec);
if (Hour = aHour) and (Min=aMin) and (Sec=aSec) then
begin
MediaPlayer1.Open;
MediaPlayer1.FileName := Form2.OpenSoundDialog.FileName;
MediaPlayer1.Play;
if MessageDlg('Выключить будильник?',mtConfirmation, [mbOK, mbNo], 0) = mrOK
then MediaPlayer1.Stop else
if MessageDlg('Выключить будильник?',mtConfirmation, [mbOK, mbNo], 0) = mrNo
then begin
MediaPlayer1.Stop;
if (Hour = aHour) and (Min=min) and (Sec=aSec) then
begin
MediaPlayer1.Open;
MediaPlayer1.FileName := Form2.OpenSoundDialog.FileName;
MediaPlayer1.Play;
end;
end;
end;
end;

 var 
   NextSignal : TDateTime;//время следующего сигнала
 .............
 implementation uses inifiles,DateUtils;
 
{$R *.dfm}
 .............
procedure TForm1.Button5Click(Sender: TObject);
 begin
   NextSignal:= IncMinute(Now,5);//при нажатии кнопки в NextSignal записывается 
                                             //системное время + 5 минут
 end;

     if DateTimeToStr(Now)=DateTimeToStr(NextSignal) then
        //сравниваются строки,как только Now сравняется с NextSignal 
        //пошел сигнал