Date Format?

[fatalerror]

verwende eine Absicherung mit Try Except oder direkt die Funktion TryStrToDate

Delphi-Quellcode:

begin 
  if TryStrToDate(Datum.Text, Datum) then    
       mache_etwas_mit_dem_Datum(Datum)
    else 
       ShowMessage(Format('"%s" Sie haben kein gültiges Datum angegeben', [Datum.Text])); 
end;