Redondeos extraños en Delphi con Currency y Firebird 2.0

[AGAG4]

En muchas ocasiones me han sacado canas verdes los redondeos, pero lo solucione con la siguiente función:

Código Delphi [-]
//Valor = Valor a Readondear
//Dec  = Es la Posición de la decimal que redondeará
function Redondearagag(Valor:Real; Decimal:Integer):Real;
begin
  result := StrToFloat(FloatToStrF(StrToFloat(FloatToStr(Valor)), ffFixed, 18, Decimal));
end;

Saludos....