#1 Erro na formatacao "manual" de FloatToStr {PATCH_ID 1181099}

[Paulo S Santos]

Erro no seguinte codigo de formatacao "manual":

Value := FloatToStr(RoundTo(Valor,-2));
if Value[Length(Value)-2] <> ',' then
if Value[Length(Value)-1] = ',' then Value := Value
+ '0'
else Value := Value + ',00';

este codigo nao confere a lista (string) em questao, e
portanto pode acessar um indice invalido.