Функция Date – возвращает текущую дату

Функция Date в Delphi возвращает текущую дату.

Функция Date: Показ текущей даты

begin
  ShowMessage('Вчера   = '+DateToStr(Yesterday));
  ShowMessage('Сегодня = '+DateToStr(Date));
  ShowMessage('Завтра  = '+DateToStr(Tomorrow));

  ShowMessage('Сегодняшнее время = '+TimeToStr(Date));
end;