Datumseingabe Begenzen

[Kunoishi]

Knoten geplatzt, danke an euch

ich habe das Problem so jetzt so gelöst

Delphi-Quellcode:

procedure TProbeForm.DatumExit(Sender: TObjct);
begin
  if Datum.Date > Now Then
    begin
      showmessage(' Fehlerhafte Eingabe ');
      Datum.setfocus;
      exit;
    end;
  end;

danke an euch und euer Team