Round کردن اعداد اعشاری با دورقم اعشار

[nasr]

سلام
چگونه میشه اعداد اعشاری را فقط با دورقم اعشار در یک Edit نمایش داد
مثلا عدد 10 تقسیم بر 3 را که جوابش 3.33333333333333 است را بصورت 3.33 نشان دهد
البته یه کد نوشته ام که کاری که می خوام انجام میده ولی می خوام روش اصولی اون را بدونم

ممنون

procedure TForm1.Edit2Exit(Sender: TObject);
begin
Edit3.Text := FloatToStr((StrToInt(Edit1.Text))/(StrToInt(Edit2.Text)));
Edit3.SetFocus;
Edit3.SelStart := 0;

while Edit3.SelText <> '.' do begin
Edit3.SelStart := Edit3.SelStart +1;
Edit3.SelLength := 1;
end;
Edit3.SelStart := Edit3.SelStart + 2;
Edit3.SelLength := 20;
Edit3.CutToClipboard;
end;

[JavanSoft]

از Format استفاده کنید

[nasr]

چگونه؟

[moradi_am]

formatfloat('#.##',Number)

[Sepidar]

یه راه حل کلاسیک:

str(r:5:2,s);

[nasr]

ممنون