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

TntSysUtils

TNT-WARN StrToDateDef