Title: Round float number with limit
This example shows, how to round float number, if you want to get result with specified number of numerals after delimiter.
procedure TForm1.Button1Click(Sender: TObject);
var
Num, Pow: Real;
Count: Integer;
begin
Num:=StrToFloat(Edit1.Text);
Count:=StrToInt(Edit2.Text);
Pow:=Power(10,Count);
Num:=Num*Pow;
Label3.Caption:=FloatToStr(Round(Num)/Pow);
end;