function Trunc(Value: Double): Integer function Trunc(Value: Integer): Integer
X := Trunc(-10.4); // X is -10 X := Trunc(15.98); // X is 15