Time

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

Time(): TDateTime
Функция возвращает текущее время

{Pascal Script}
Var
     d : TDateTime;

Begin
     d := time;
     AddToDebugLog('Текущее время = ' + TimeToStr(d));
end.

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