Floor

Функция Floor() округляет значение аргумента к ближайшему меньшему целому.

Floor(Number): Integer
Number: Extended	Вещественное число
Функция возвращает округленное значение аргумента к ближайшему меньшему целому

Пример вызова:

{Pascal Script}
Var
    res: Integer;
    x: Extended;

Begin
    x := 5.9648794;
    res := Floor(x);
    AddToDebugLog('Округленное значение ' + floatToStr(x) + ' к ближайшему меньшему целому = ' + intToStr(res));
end.

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