Jak zaokrąglić liczbę rzeczywistą do iluś mi

Jak zaokrąglić liczbę rzeczywistą do iluś miejsc po przecinku????
Jest jakaś funkcja do tego? Bo ja robiłem to w ten sposób. Np. zmienną "liczba" do 3 miejsc po przecinku:
liczba:=round(liczba*1000)/1000;

Wszystko fajnie działało, ale p[rzy dużych liczbach wyskakuje błąd.

var
R : Real;
begin
R := 2.1111243432;
ShowMessage(FormatFloat('0.0000000', R)) ;
...