Работа с таблицами в Делфи!!!-нужна помощь

[sv2311]

Есть матрица(случайная) нужно вывести кроме нее (StringGrid1) StringGrid2!
В которой нужно вывести сумму элементов которые находятся ниже главной диагонали!
Я сделал программу в которой подчитывается и записывается сумма елементов каждого столбца! - что мне нужно изменить и что добавить,что бы подчитать сумму лишь тех элементов что находятся ниже главной диагонали!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button3: TButton;
    Label3: TLabel;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var c,r,n:byte;s:integer;
begin
 Randomize;
 n:=strtoint(edit1.text);
 with Stringgrid1 do
  begin
   inc(n);
   colcount:=n;
   rowcount:=n;
   width:=defaultcolwidth*(n+1);
   height:=defaultrowheight*(n+1);
   cells[0,0]:='№';
   for c:=1 to colcount do
   cells[c,0]:=inttostr(c);
   for r:=1 to rowcount do
   cells[0,r]:=inttostr(r);
   for c:=1 to colcount do
   for r:=1 to rowcount do
    Cells[c,r]:=inttostr(Random(10));
   end;
  with Stringgrid2 do
  begin
   colcount:=n;
   rowcount:=2;
   width:=defaultcolwidth*(n+1);
   cells[0,0]:='s\№';
   for c:=1 to colcount do
   cells[c,0]:=inttostr(c);
   cells[0,1]:='Sum';
  end;
   for r:=1 to n-1 do
   begin
    s:=0;
    for c:=1 to n-1 do
     s:=s+strtoint(stringgrid1.Cells[r,c]);
    stringgrid2.Cells[r,1]:=inttostr(s);
   end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;


end.

[/code]

[sv2311]

все я сам все розобрал