StrToTime parst in falsches Datum

[Delphi.Narium]

StrToDateDef(dt, 0, fs); liefert im Fehlerfalle das Datum 0 und das ist als Zeichenfolge der 30.12.1899. Das ist also absolut korrekt so.

Eventuell solltest Du erstmal nur StrToDate(dt) nehmen, Dir die daraus resultierende Fehlermeldung anschauen, den Eingabewert oder die Konfiguration von fs anpassen und erst dann, wenn kein Fehler mehr auftritt, StrToDateDef verwenden, was ja in Deiner Routine im Fehlerfalle explizit den 30.12.1899 als Rückgabewert liefern soll.