Es wird wohl einfach nur so sein, das die Diverenz größer als 0,00001 ist.
Speicher einfach, ob der Code schon ausgeführt wurde
Delphi-Quellcode:
Var ausgefuehrt: Boolean;
procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject);
begin
If (DateTimePicker1.Time < now) and not ausgefuehrt then
begin
ausgefuehrt := True;
//hier der code der ausgeführt wird
end;
end;
// ausgefuehrt muß natürlich vorher FALSE sein
oder schalte einfach den Timer aus
Delphi-Quellcode:
procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject);
begin
If DateTimePicker1.Time < now then
begin
Timer1.Enabled := False;
//hier der code der ausgeführt wird
end;
end;