Y casi la clavo, esta es la funcion Ceil echa por los amigos de borland:
Código Delphi
[-]
function Ceil(const X: Extended): Integer;
begin
Result := Integer(Trunc(X));
if Frac(X) > 0 then
Inc(Result);
end;
Soy de los que siempre intenta reinventar la rueda