Problemas con Redondeos

[[Gunman]]

No entiendo muy bien el problema que planteas, pero por ejemplo, si quieres redondear un numero de coma flotante a su valor más próximo con dos cifras decimales entonces:
Añades la libreria Math a tu programa...

Código Delphi [-]
  uses Math;

...y te creas esta función (por ejemplo)

Código Delphi [-]
 function RedondeoReal(Valor: Real): Real;
 begin
   SetRoundMode(rmNearest);
   Result := RoundTo(Valor, -2);  //RoundTo(ValorARedondear,Cifras decimales (-2) o 0 a añadir (2)
 end;