ReplaceTime
Replaces the time portion of a TDateTime value with a specified time