delphi 小数点四舍五入问题

function ARoundN(v: Double; n: Integer): Double;
var
  I:Integer;
begin
  result:=v;
  for I:= to n- do
    begin
      result:=result*;
    end;
  result:=Round(result);
  for I:= to n- do
    begin
      result:=result/;
    end;
end;