Replace the time part.
Source position: datih.inc line 203
procedure ReplaceTime(
var dati: TDateTime;
NewTime: TDateTime
);
ReplaceTime replaces the time part in dati with NewTime. The date part remains untouched.