[ARV]

отлично работает следующий вариант:
var
S : string;
R : real;
begin
R := 2.125;
S := '' + R;
drawtext(S, 10,10);
delay(1000);
end.