Zu einer bestimmten Uhrzeit Aktion ausführen!

[Luckie]

So rum geht es. Frag mich aber bitte nicht warum.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  caption := TimeToStr(now);
  if TimeToStr(now) >= '09:08:40' then
  begin
    timer1.enabled:=false;
    Showmessage(TimeToStr(now));
  end;
end;