Необходимо сложить ячейки в столбце Stringgrid и вывести в другой Stringgrid

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,c,r:integer;
begin
try
c:=strtoint(edit1.Text);
except
showmessage('Количество столбцов должно быть целым числом!');
exit;
end;
if (c<1)or(c>100) then
begin
showmessage('Количество столбцов должно быть от 1 до 100!');
exit;
end;
try
r:=strtoint(edit2.Text);
except
showmessage('Количество строк должно быть целым числом!');
exit;
end;
if (r<1)or(r>100) then
begin
showmessage('Количество строк должно быть от 1 до 100!');
exit;
end;
randomize;
with stringgrid1 do
begin
colcount:=c;
rowcount:=r;
for i:=0 to c-1 do
for j:=0 to r-1 do
cells[i,j]:=inttostr(random(100)-50);
end;
stringgrid2.colCount:=c;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;
s:extended;
begin
for i:=0 to stringgrid1.ColCount-1 do
begin
s:=0;
for j:=0 to stringgrid1.RowCount-1 do
begin
try
s:=s+strtofloat(stringgrid1.Cells[i,j]);
except
showmessage('В столбце '+inttostr(i+1)+' и строке '+inttostr(j+1)+' должно быть число!');
exit;
end;
end;
stringgrid2.Cells[i,0]:=floattostr(s);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(Sender);
end;
 
end.