En muchas ocasiones me han sacado canas verdes los redondeos, pero lo solucione con la siguiente función:
Código Delphi
[-]
function Redondearagag(Valor:Real; Decimal:Integer):Real;
begin
result := StrToFloat(FloatToStrF(StrToFloat(FloatToStr(Valor)), ffFixed, 18, Decimal));
end;
Saludos....