Datumseingabe Begenzen

[Kunoishi]

Ein Hallo an alle !! und wieder mal ein problemchen

Ich habe ein Datumsfeld in Form von „TDateTimePicker“ und möchte verhindern,
dass die Möglichkeit besteht ein Datum auszuwählen bzw. einzugeben das nach dem
aktuellem Datum liegt.
Nach der Eingabe sollte dann über Showmessage die Info ausgegeben werden, dass die Eingabe nicht richtig ist wenn das Datum nach dem aktuellen Wert liegt.

Dazu hatte ich vollgende Idee, welche aber nicht so klapt

Delphi-Quellcode:

procedure TSachverhaltForm.datumExit(Sender: TObject);
var l,b,u:real;
begin
 Try
  l:=strtofloat(datum.Date);
 Except
   Showmessage('Eingabefehler: Sie können kein Datum angeben das nach dem Aktuellen Datum liegt !');
   l := 01.01.2001;
   datum.Date := '01.01.2001';
 end;
  u:=l>b;
  datum.Date := FloattostrF (u,ffGeneral,6,0);
  datum.setfocus
end;

Ich glaube ich habe da wieder mal ein falschen Ansatz