Модуль: SysUtils

Описание
Функция возвращает текущее значение времени в формате TDateTime.

Пример
begin
   MessageDlg( 'Текущее время :'+ TimeToStr(Time), mtInformation, [mbOk], 0);
end;