EncodeTime
Returns a TDateTime value for a specified Hour, Min, Sec, and MSec