Вычислить суммы элементов в каждом столбце матрицы. Полученные суммы вывести в ListBox

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    ListBox1: TListBox;
    Button1: TButton;
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2SortClick(Sender: TObject);
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(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: integer;
sum: integer;
s: string;
g:boolean;
begin
g:=True;
listbox1.clear;
for i := 1 to StringGrid1.ColCount do
 for j := 1 to StringGrid1.RowCount do begin
 if StringGrid1.Cells[i,j]='' then begin showmessage('Пустая ячейка '+inttostr(i)+':'+inttostr(j)); g:=false; end;
 //if StringGrid1.Cells[i,j]='-' and pos('-', StringGrid1.Cells[i,j])>1 then begin showmessage('Не правильно набрана матрица');g:=false; end;
 end;
 
 if g=true then begin
 
with StringGrid1 do begin
for i:=1 to StringGrid1.ColCount do begin
sum:=0;
for j:=1 to StringGrid1.RowCount do
 sum:=sum+strtoint(StringGrid1.Cells[i,j]);
 listbox1.items.add(inttostr(sum));
end;
end;
 end;
end;
 
procedure TForm1.Button2SortClick(Sender: TObject);
 
var i : integer;
begin
 
 
if ListBox1.Items.Count >= 1 then
begin
ListBox1.Sorted := True;
if RadioGroup1.ItemIndex <> 0 then
begin
ListBox1.Sorted := False;
with ListBox1.Items do
for i := 0 to (Count-1) div 2 do
Exchange(i, Count-i-1)
end;
end
else
ShowMessage ('Вы сортируете пустой список')
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Close
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j: Integer;
begin
Randomize;
  for i := 1 to StringGrid1.RowCount do
  for j := 1 to StringGrid1.ColCount do
    begin
      StringGrid1.Cells[i,j] := inttostr(Random(11)-5);
    end;
 
   with StringGrid1 do begin
for i:=1 to RowCount do
StringGrid1.Cells[i, 0] := 'Столбец '+inttostr(i);
for j:=1 to ColCount  do
 StringGrid1.Cells[0, j] := 'Строка '+inttostr(j);
end;
 
end;
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var text: array of array of string;
i,j,k,l:integer;
s: string;
begin
with StringGrid1 do begin
StringGrid1.RowCount:=k;
StringGrid1.ColCount:=l;
SetLength(text, l, k);
 
for i:=1 to l do
for j:=1 to k  do
text[i,j]:=StringGrid1.Cells[i,j];
for i:=1 to l do
for j:=1 to k  do begin
s:=text[i,j];
if (key='-')and(s<>'') and (s[length(s)]='-') then
key := chr(0)
else
case key of
'0'..'9', '-', chr(8):;
else
key:= chr(0);
 
 
end;
end;
end;
end;
 
 
end.