TryStrToTime - so schwer kanns nicht sein

[Treffnix]

Delphi-Quellcode:

Procedure irgendwas
var dt: TDateTime;
Begin
  If TryStrToTime( edit1.Text, dt ) Then 
    //Hat geklappt und jetzt steht der Wert in dt
  Else
    //Das war wohl kein gültiger String
End;