Simulate Excel's Ceiling function in Delphi?

[LP]

The bit that is throwing me off is this

Int(X / Factor) > 0

I suppose it is either 1 or 0 depending on the outcome. Direct conversion would probably be this:

Result:= (Trunc(X / Factor) - (X / Factor - Ord(Trunc(X / Factor) > 0))) * Factor;