Количество цифр после запятой

[LIEN]

Можно ли как нибудь регулировать кол-во цифр после запятой????
Вот я нажимаю - Выполнить(Button) и в Edit вылазит число... Например, 73,7543566.. А как настроить так чтоб Delphi сам округлял до 1 цифры после запятой??? Помогите пожалуйста! Если можно кодом...

Пример(мой):
procedure TForm1.Button1Click(Sender: TObject);
var
A,B,C,D,E,F,G,H,I,K,L,M,N,O,P,R,S,S rst:real;
begin
A:=200000;
B:=123000;
C:=(123000*70)/100;
Srst:=105000;
D:=B-C;
F:=A-B;
E:=(F/A)*100;
G:=25;
H:=A/G;
I:=(F/B)*100;
K:=(F*24)/100;
L:=A-D;
M:=L/F;
N:=L/A;
O:=C/N;
P:=A-O;
R:=(P/A)*100;
S:=F/Srst;
edit1.Text:=Floattostr(F);
edit2.Text:=Floattostr(H);
edit3.Text:=Floattostr(K);
edit4.Text:=Floattostr(I);
edit5.Text:=Floattostr(E);
edit6.Text:=Floattostr(L);
edit7.Text:=Floattostr(M);
edit8.Text:=Floattostr(N);
edit9.Text:=Floattostr(O);
edit10.Text:=Floattostr(P);
edit11.Text:=Floattostr(R);
edit12.Text:=Floattostr(S);
end;

[Баламут]

Edit1.text := FloatToStrF(73,7543566, ffFixed, 20,1)

По моему так должно работать

[dron-s]

Модуль Math, функция RoundTo

[Pitbull]

SimpleRoundTo (n,2)
RoundTo(n, -2)
StrToFloat(FloatToStr(n, ffFixed, 15, 2))
Trunc(n * 100 + 0.5) / 100 -- откидівает дробную часть....

[LIEN]

СПАСИБКИ БОЛЬШОЕ БОЛЬШОЕ!)))

[LIEN]

function TForm1.RoundEx(x:real; y:integer):string;
var
numeric:string;
u:currency;
begin
u:=x;
str(u:20:y, numeric);
numeric[pos('.', numeric)]:=',';
RoundEx:=trim(numeric);
end;

******

edit7.Text:=RoundEx(M, 1);

Вот.. Вдруг кому понадобиться!!!!

[SERG1980]

b:=3.1364641678169......
edit1.text:=formatfloat('0.0',b);
результат 3.1
edit1.text:=formatfloat('0.00',b);
результат 3.14 и т.д

[Petrucci]

Сообщение от LIEN

function TForm1.RoundEx(x:real; y:integer):string;
var
numeric:string;
u:currency;
begin
u:=x;
str(u:20:y, numeric);
numeric[pos('.', numeric)]:=',';
RoundEx:=trim(numeric);
end;

******

edit7.Text:=RoundEx(M, 1);

Вот.. Вдруг кому понадобиться!!!!

а как описать эту функцию в interface?