Как сделать так, чтобы вводимые мной числа в данном коде отображались в проекте

interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm9 = class(TForm)
    Button1: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label3: TLabel;
    Button3: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form9: TForm9;
 
implementation
var a: integer;
 
{$R *.dfm}
 
 
 
 
 
 
 
 
procedure TForm9.Button1Click(Sender: TObject);
var i,s: integer;
sum: double;
sa: double;
b: double;
m: array[1..100] of double;
begin
s:= strtoint(inputbox('kol-vo chisel','vvod',''));
edit1.text:=inttostr(s);
for i := 1 to s do begin
m[i]:=strtofloat(inputbox('vvedi konkretno znacheniya dlya kazhnogo chisla','vvod',''));
end;
sum:=0;
for i := 1 to s do begin
  sum:=sum+m[i];
  sa:=sum/s;
  edit2.text:=floattostr(sa);
end;
 
 
 
 
end;
 
 
procedure TForm9.Button2Click(Sender: TObject);
var i,s: integer;
sum: double;
sa: double;
m: array[1..100] of double;
begin
s:= strtoint(inputbox('kol-vo chisel','vvod',''));
edit3.text:=inttostr(s);
for i := 1 to s do begin
m[i]:=strtofloat(inputbox('vvedi konkretno znacheniya dlya kazhnogo chisla','vvod',''));
end;
sum:=0;
for i := 1 to s do begin
  sum:=sum+sqr(m[i]);
  sa:=sum/s;
  edit4.text:=floattostr(sa);
end;
end;
 
 
 
procedure TForm9.Button3Click(Sender: TObject);
var i,s: integer;
sum: double;
sa: double;
m: array[1..100] of double;
begin
s:= strtoint(inputbox('kol-vo chisel','vvod',''));
edit5.text:=inttostr(s);
for i := 1 to s do begin
m[i]:=strtofloat(inputbox('vvedi konkretno znacheniya dlya kazhnogo chisla','vvod',''));
end;
sum:=0;
for i := 1 to s do begin
  sum:=sum+1/(m[i]);
  sa:=s/sum;
  edit6.text:=floattostr(sa);
end;
end;
 
 
end.

StringGrid.Cells[1,i] := FloatToStr(m[i]);