Komme nicht weiter mit Zeitvergleichen?

[AlexII]

Hallo,
ich möchte einen Wecker schreibe und hab folgendes geschrieben:

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
begin
DateTimePicker2.Time:=Now;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
if DateTimePicker2.Time=Now then ShowMessage('Ok');
end;

Die if Abfrage funktioniert komischerweise nicht, verstehe nicht wieso, ist doch alles richtig geschrieben. Timer.Interval :=1 sek. Wer weiß da weiter? Danke!