16.45.3. function Time

function Time: TDateTime;

Возвращает только текущее время, без даты (т.е. датой будет нулевой день от базовой точки отсчета, что соответствует 30.12.1899).

Пример:

begin

AddToLog(TimeToStr(Time));

end.