[cancun]

Hola



Puedes hacer una función para redondear, algo asi como:

function Redondea(Numero:Real;Decimal:Integer;Redondeo:Real=0.5):Real;
var I:Currency;
begin
  I:=Numero;if Numero<0.0 then Redondeo:=-Redondeo;
  case Decimal of
    0:I:=Int((Numero*10+Redondeo*10)/10);
    1:I:=Int(Numero*10+Redondeo)/10;
    2:I:=Int(Numero*100+Redondeo)/100;
    3:I:=Int(Numero*1000+Redondeo)/1000;
    4:I:=Int(Numero*10000+Redondeo)/10000;
  end;
  Result:=I;
end;

Saludos y suerte