Есть специальная функция для округления с точностью до определённого разряда: RoundTo(). Она объявлена в модуле Math.var Res, Num : Extended;
begin //Округление до сотых долей: Res := RoundTo(Num, -2); //Округление до десятых долей: Res := RoundTo(Num, -1); //Округление до единиц: Res := RoundTo(Num, 0); //Округление до десятков: Res := RoundTo(Num, 1); //Округление до сотен: Res := RoundTo(Num, 2);end;Функция SimpleRoundTo() сходна с RoundTo() – различие лишь в способе округления последнего знака. SimpleRoundTo() округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному