function TntStrToTimeDef(Str: WideString; Default: TDateTime): TDateTime;

TntSysUtils

TNT-WARN StrToTimeDef