Функция Time – возвращает текущее время

Функция Time в Delphi возвращает текущее время.

Функция Time: Пример кода

var
  today : TDateTime;
begin
  today := Time;
  ShowMessage('текущая дата = '+DateToStr(today));
  ShowMessage('текущее время = '+TimeToStr(today));
end;