var
  myDateTime, newTime : TDateTime;

begin
  // Установка даты в 29/10/2002 12:34:56
  myDateTime := EncodeDateTime(2002, 10, 29, 12, 34, 56, 0);
  ShowMessage('Начальная дата/время = '+DateTimeToStr(myDateTime));

  // Теперь изменяем дату не затрагивая время
  newTime := EncodeTime(9, 45, 52, 0);
  ReplaceTime(myDateTime, newTime);
  ShowMessage('Новая дата/время = '+DateTimeToStr(myDateTime));
end;