Ja, es gibt tryStrToDate.
Kleines Beispiel für Wolfgang:
Delphi-Quellcode:
var str : string;
d : TDateTime;
begin
str := InputBox('Datum', 'Bitte geben sie ein Datum ein', '');
if tryStrToDate(str, d) then
begin
showMessage('Sie haben ' + FormatDateTime('ddd, dd. MMMM yyyy', d) + ' eingegeben')
end;
end;