Вывести значения в Label

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls, ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  s, j, i, f: integer;
  a: array [1..5, 1..5] of Integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject); // Заполнятор
begin
  begin
  Randomize;
  for j := 0 to 5 do
    for i := 0 to 5 do
      begin
        if i <> 0 then StringGrid1.Cells[i, 0] := FloatToStrF(i, ffFixed, 2, 0);
        if j <> 0 then StringGrid1.Cells[0, j] := FloatToStrF(j, ffFixed, 2, 0);
        if ((i <> 0) and (j <> 0)) then
          begin
            a[i, j] := Random(100);
            StringGrid1.Cells[i, j] := FloatToStrF(a[i, j], ffFixed, 2, 0);
          end;
      end;
  end;
end;
procedure stroka; // Сумма в строке
begin
  S:=0;
  for j:= 0 to 5 do
    begin
    S:=S+j;
  end;
  end;
 
procedure stolbez; // Сумма в столбце
begin
  S:=0;
  for i:= 0 to 5 do
    begin
    S:=S+i;
  end;
  end;
 
procedure summa; // Сумма общ
begin
  S:=0;
  for j:= 0 to 5 do
    for i := 0 to 5 do
    begin
    S:=S+i;
    S:=S+j;
  end;
  end;
 
procedure TForm1.Button2Click(Sender: TObject);   // Клацнул - проверил флажок - вывел в Label
begin
  begin
  stroka;
 
  Label1.Caption:=CheckBox1.Checked;
  end;
  stolbez;
  begin;
  Label2.Caption:=CheckBox2.Checked;
  end;
  begin
  summa;
  Label3.Caption:=CheckBox3.Checked;
  end;
  end;
 
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
 
end;
 
end.