function TntStrToTime(Str: WideString): TDateTime;

TntSysUtils

TNT-WARN StrToTime