Никак не пойму великий смысл этого действа:
Может тогда уж так:R_TO_ST:=INT_TO_STRING(TRUNC(varReal*10)/10);
R_TO_ST:=INT_TO_STRING(TRUNC(varReal));
R_TO_ST:=CONCAT(R_TO_ST, '.');
R_TO_ST:=CONCAT(R_TO_ST,INT_TO_STRING(TRUNC(ABS(va rReal*10))MOD 10));