Komme nicht weiter mit Zeitvergleichen?

[AlexII]

Zitat von Tyrael Y.:

Delphi-Quellcode:

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

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

Funkt auch nicht