Problemas con Redondeos

[AGAG4]

Ya he investigado en los foros, hay mucha información sobre este tema, pero no he encontrado la manera de solucionar el problema que tiene RoundTo, SimpleRoundTo, de Redondear decimales con valor 5, la única función de delphi que he probado que se acerca es la FloatToStrF, pero esta tiene que recibir String's en vez de Valores Reales ó Flotantes, y se preguntarán porque no convierto de String a Flotante, yo les respaldo ya lo hice y por esta conversión falla el redondeo de la función FloatToStrF, pongo los ejemplos de esta misma:

Código Delphi [-]
edit2.text:=FloatToStrF(StrToFloat('6.225'), ffFixed, 18, 2);
//Valor que despliega es 6.223 que es el correcto
Pero si hago esto....
 
var
Valor:double;
begin
Valor:=6.225;
edit2.text:=FloatToStrF(FloatToStr(Valor), ffFixed, 18, 2);
//Me da el Resultado 6.22
{Me Obliga a darle un String en vez de darle un valor Real}

Agradezco cualquier sugerencia.