Date

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

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

{Pascal Script}
Begin
AddToDebugLog('Текущая дата = ' + DateTimeToStr(Date));
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.