Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как округлять до сотых в большую сторону?

01.01.2007

Прибавляешь 0.5 затем  отбрасываешь дробную часть:

Uses Math;  

 
Function RoundMax(Num:real; prec:integer):real;
begin
  result
:=roundto(num+Power(10, prec-1)*5, prec);
end;

До сотых соответственно будет:

Function RoundMax100(Num:real):real; 

 
begin
  result
:=round(num*100+0.5)/100;
end;

Автор: Vit

Взято с Vingrad.ru https://forum.vingrad.ru