Hola
Puedes hacer una función para redondear, algo asi como:
Código:
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