Для перевода из реал в текст есть вроде realtostring, но как ей пользоваться, даже Вассерман не знает.
Могу разве что предложить такое:
a:=trunc(real_number-frac(real_number));//убираем дробь
b:=trunc(frac(a)*100.0);//оставляем только дробь. 100 имеет два нуля, значит будет 2 знака после запятой.
S:=''+a+'.'+b;//целое число+точка+дробь. вуаля!