[PassCall]

А вообще можно изобрести велосипедную функцию.

Вотъ:

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;