Модуль: SysUtils

Описание
Процедура возвращает значение часов (Hour), минут (Min), секунд (Sec) и миллисекунд (MSec) для значения времени указанного в формате TDateTime. Исходное значение передается в параметре T. Если значение T<=0 или не содержит значения времени, то процедура возвращает во всех переменных 0.

Пример
var
   D: TDateTime;
   Hour, Min, Sec, MSec: Word;
begin
   D:= Now;
   DecodeTime( D, Hour, Min, Sec, MSec);
   MessageDlg( 'Текущее время: '+ IntToStr(Hour)+ 'ч.'+ IntToStr(Min)+ 'мин.'+ IntToStr(Sec)+ 'сек. ', mtInformation, [mbOk], 0);
end;