Модуль: SysUtils

Описание
Функция преобразовывает значения часов, минут, секунд и миллисекунд, переданных в параметрах Hour, Min, Sec, MSec соответственно, в значение типа TDateTime. Исходные значения должны иметь допустимые величины: Hour - 0.. 23; Min - 0.. 59; Sec - 0.. 59; MSec - 0.. 999. Если значения выходят за пределы заданных диапазонов, то возникает исключение EConvertError.
Функция возвращает значение в диапазоне [0.. 1). Результирующее значение определяет часть дня, прошедшую к указанному времени (например, 0 - полночь, 0.5 - полдень, 0.75 - 18:00 и т.д.).

Пример
var
   T: TDateTime;
begin
   T:= EncodeTime( 7, 30, 0, 0);
   MessageDlg( TimeToStr(T), mtInformation, [mbOk], 0);
end;