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);
Resultado:= Resultado + IntToStr(ParteDecimal) + '/100';
end;