Модуль: SysUtils

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

Пример
var
   S: string;
begin
   S:= DateToStr( Date);
   MessageDlg( 'Текущая дата: '+ S, mtInformation, [mbOk], 0);
end;