Added function StrToDateTime

function StrToDateTime(const S: string): TDateTime;