Реализация кнопки вычитания матрицы

unit lab7;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;

type
  TForm2 = class(TForm)
    stg: TStringGrid;
    eCol: TEdit;
    eRow: TEdit;
    form: TButton;
    clea: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ess: TEdit;
    Label3: TLabel;
    Button3: TButton;
    procedure cleaClick(Sender: TObject);
    procedure formClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
// Процедура очистки таблицы. В процедуре использовано оператор with
procedure TForm2.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm2.cleaClick(Sender: TObject);
var
  i,j: integer;
begin
  with stg do
  begin
    for i := 0 to colcount-1 do
    for j := 0 to rowcount-1 do
      cells[i,j]:='';
  end;
    
end;
 // Формирование таблицы TStringGrid с именем STG та определения суммы элементов 
procedure TForm2.formClick(Sender: TObject);
var
  i,j,s,n,m: integer;
begin
  n:=StrToInt(eCol.Text); // кол-во колонок таблицы
  m:=StrToInt(eRow.Text); // кол-во столбиков таблицы
  stg.ColCount:=n;
  stg.RowCount:=m;
  randomize;
    for i := 0 to n-1 do
      for j := 0 to m-1 do
        begin
          stg.Cells[i,j]:=IntToStr(random(10));
          s:=s+StrToInt(stg.Cells[i,j]);
        end;
  ess.Text := IntToStr(s);  // Запись результата в поле редактирования
end;

end.