Модуль: SysUtils

Описание
Процедура заменяет значение времени в переменной DateTime на значение, указанное в параметре NewTime. Значение даты остается неизменным.

Пример
var
   DateTime, NewDate: TDateTime;
   S: string;
begin
   S:= '28.02.1999 23:37';
   DateTime:= StrToDateTime(S);
   NewTime:= StrToTime('15:00');
   ReplaceTime(DateTime, NewTime);
   S:= DateTimeToStr(DateTime);
   MessageDlg( S, mtInformation, [mbOk], 0);
end;