Сделать так, чтобы выводилось 3 знака после запятой и численное значение В было нормальным

procedure TForm1.Button1Click(Sender: TObject);
type
  tmx = array[1..100] of extended;
  tmy = array[1..100, 1..100] of extended;
var
  sa, sx, sy: string;
  Ma, Mx: tmx;
  My: tmy;
  An, ak, da, xn, Dx, b, c, d, eps, int: extended;
  k, n, n1, er, km: integer;
  function Pwr(x: real): real;//Возведение в степень (1/3)
  begin
    if x = 0 then Pwr := 0
    else
    if x > 0 then pwr := exp(ln(x) * (1 / 3)) else
      pwr := -exp(ln(abs(x)) * (1 / 3));
  end;
  
  procedure tab(b, an, ak, da, xn, dx: real; n: integer; var Mx, Ma: tmx; var My: tmy);
  var
    i, j: integer;
    x, y, a: real;
  begin
    j := 1;
    a := an;
    while a <= ak do
    begin
      X := xn;
      i := 1;
      while i <= n do
      begin
        y := (cos(b) * sin(sqrt(x))) / (a * sqrt(x + 5 * pwr(3 * x)));
        mx[i] := x;
        my[j, i] := y;
        i := i + 1;
        x := x + dx
      end;
      ma[j] := a;
      a := a + da;
      j := j + 1;
    end;
  end;
  
  function f(x: real): real;
  begin
    f := x * x * x * exp(2 * x);
  end;
  
  procedure integral(c, d, eps: real; var n1, er: integer; km: integer; var int: real);
  var
    y1, yn, h, del, int1, x: real;
    i, j: integer;
  begin
    y1 := f(c);
    yn := f(d);
    int1 := 0;
    n1 := 2;
    er := 1;
    j := 1;
    while j <= km do
    begin
      h := (d - c) / n1;
      x := c + h;
      int := 0;
      for I := 1 to n1 - 1 do
      begin
        int := int + f(x);
        x := x + h;
      end;
      int := h * (y1 / 2 + yn / 2 + int);
      del := abs(int1 - int);
      if del < eps then
      begin
        j := km;
        er := er - 1;
      end
      else
      begin
        int1 := int; n1 := n1 * 2;
      end;
      j := j + 1;
    end;
  end;
  
  procedure rezout(var mx: tmx; var ma: tmx; var my: tmy; k, n: integer);
  var
    i, j: integer;
    sa, sx, sy, kk: string;
  begin
    for j := 1 to k do
    begin
      str(j:14, kk);
      memo1.lines.add(' A[' + kk + ']=' + sa);
      memo1.lines.add('X           Y');
      for i := 1 to n do
      begin
        str(Mx[i]:14, sx);
        str(My[j, i]:14, sy);
        memo1.lines.add(sx + '     ' + sy);
      end;
      
      
      
      
      
    end;
  end;
 
begin
  an := strtofloat(edit1.text);
  ak := strtofloat(edit2.text);
  da := strtofloat(edit3.text);
  xn := strtofloat(edit4.text);
  dx := strtofloat(edit5.text);
  n := strtoint(edit6.text);
  c := strtofloat(edit7.text);
  d := strtofloat(edit8.text);
  eps := strtofloat(edit9.text);
  km := strtoint(edit10.text);
  integral(c, d, eps, n1, er, km, int);
  if er = 1 then
  begin
    str(km:14, sa);
    memo1.lines.add('Интеграл не найден за ' + sa + 'итераций');
    exit
  end;
  b := int;
  str(Int:14, sy);
  memo1.lines.add('Численное значение определенного интеграла В=' + sy);
  Tab(B, An, ak, da, xn, dx, n, mx, ma, my);
  k := trunc((ak - an) / da) + 1;
  rezout(mx, ma, my, k, n);
end;
 
 
end.

memo1.lines.add('X           Y');
for i := 1 to n do
memo1.lines.add(format('%.3f',[Mx[i]]) + '     ' +format('%.3f',[My[j,i]]));