Функция Now – выдает текущую дату и время

Функция Now в Delphi выдает текущую дату и время.

Функция Now: Показ текущей даты и времени

var
  today : TDateTime;
begin
  today := Now;
  ShowMessage('День = '+DateToStr(today));
  ShowMessage('Время = '+TimeToStr(today));
end;