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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ScrollBox1: TScrollBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 uses math;
 
{$R *.dfm}
 
 type
   doublearr = array of double;
 var
   Mass: array of doublearr;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   stringgrid1.RowCount := (StrToInt(edit1.Text));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    stringgrid1.ColCount:= (StrToInt(edit2.Text));
end;
 
procedure TForm1.Button3Click(Sender: TObject);
   var i, j, k: integer;
begin
   randomize;
   setlength(mass,strtoint(edit1.Text),strtoint(edit2.Text));
   StringGrid1.RowCount:=strtoint(edit1.Text);
   StringGrid1.ColCount:=strtoint(edit2.Text);
   StringGrid2.RowCount:=strtoint(edit1.Text);
   StringGrid2.ColCount:=strtoint(edit2.Text);
    for I := 0 to StrToInt(edit1.text)-1 do
      for J := 0 to StrToInt(edit2.text)-1 do
       begin
         mass[i, j]:=random(200)-50;
         StringGrid1.Cells[j,i]:=floattostr(mass[i, j]);
      end;
end;
 
  function meanval(arr : doublearr) : double;
begin
   result := Mean(arr);
end;
 
procedure  ExchangeArr(var A, B : doublearr);
  var
   T : double;
   i : Integer;
begin
   for i := Low(A) to High(A) do
   begin
      T := A[i];
      A[i] := B[i];
      B[i] := T;
   end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
  var i, j : Integer;
begin
  memo1.Clear;
 for i := 0 to strtoint(edit1.Text) - 1 do
      Memo1.Lines.Add(FloatToStrF(meanval(mass[i])ffFixed,6,2));
 
       for i := Low(mass) to High(Mass) do
      for j := High(Mass) downto i+1  do
         if meanval(mass[j]) > meanval(mass[j - 1]) then
            ExchangeArr(mass[j], mass[j - 1]);
 
            for i := Low(mass) to High(Mass) do
      for j := Low(mass[i]) to High(Mass[i]) do
        begin
        StringGrid2.Cells[j,i]:=floattostr(mass[i, j]);
    end;
end;
 
end.