Como no traducir la parte fraccionaria de x cantidad

[[seoane]]

No conozco bien el componete ATexto, pero se me ocurre que puedes utilizarlo para convertir solo la parte entera de la cantidad y añadir tu despues la parte decimal. Me explico:

Código Delphi [-]
var
  R: Real;
  ParteEntera: Integer;
  ParteDecimal: Integer;
  Resultado: string;
begin
  R:= 25.36;
  ParteEntera:= Trunc(R);
  ParteDecimal:= Trunc(Frac(R)*100);
  // Aqui convierte la parte entera con Atexto y colocalo en resultado
  // ...
  // Luego solo le tenemos que añadir la parte decimal
  Resultado:= Resultado + IntToStr(ParteDecimal) + '/100';  
end;