Zaokrąglanie wyniku dzielenia w górę

Witam serdecznie!

Jak w najprostszy sposób wykonać tak aby wynik dzielenia, nie będący liczbą całkowitą był zawsze zaokrąglany w górę. Np. 4/3=1.3, a chciałbym aby 4/3=2.

Pozdrawiam.

Tak sobie wymyśliłem na szybko ale musisz przetestować czy dobrze działa:

function RoundUp(const Number : Extended): Integer;
begin
  result:= Trunc(Number);
  if (Frac(Number) > 0) then
    Inc(result);
end;

Wygląda to dobrze, ale w między czasie udało mi się znaleźć funkcje "Ceil", która spełnia moje wymagania.
Dziekuje Kazek!