А вообще можно изобрести велосипедную функцию.
Вотъ:
Function RtS (_a:real):string;
var
treal:real;
ts:string;
begin
treal:=_a;
treal:=treal-frac(treal);//убираем дробь
ts:=IntegerToString(trunc(treal))+'.';//челая часть числа+точка
treal:=frac(real)*10.0;//вычисляем дробь
treal:=treal-frac(treal);//убираем лишние знаки у дроби без округления (во избежании одного спецефического бага :В)
ts:=ts+IntegerToString((trunc(treal)*10.0));//число с точкой+дробь
RtS:=ts;
end;