[JeeGith]

Спасибо, но
Truncates a real number to an integer.
а
Call Ceil (as in ceiling) to obtain the lowest integer greater than or equal to X. The absolute value of X must be less than MaxInt. For example:
Ceil(-2.8) = -2
Ceil(2.8) = 3
Ceil(-1.0) = -1
можно флором, но также как и ceil он integer:
function Floor(const X: Extended): Integer;
решил забить и сделать
function Round(X: Real): Int64;
плюс
type TRoundingMode = (rmNearest, rmDown, rmUp, rmTruncate)

всем спасибо