Problemas con Redondeos

[AGAG4]

Tuve que hacer una Mexicanada como aqui en México se dice,

Código Delphi [-]
//Antes
edit2.text:=FloatToStrF(FloatToStr(Valor), ffFixed, 18, 2);
//Ahora
var
  ValorRealouble;
ValorReal:=FloatToStrF(StrToFloat(FloatToStr(ValorReal)), ffFixed, 18, 2);

Como ven tengo que recibir el valor de tipo Real y convertirlo a String y devolverlo a Flotante y apenas asi me redondea a 6.23 el valor 6.225

Espero ha alguien le sirva.