Создание класса в котором есть массив и прцедуры работы с ним

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
const n=8;
      m=3;
 
type
  TForm1 = class(TForm)
    Shape: TShape;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
  TBlocks=class(TShape)
  public
    ABlock:array[1..n,1..m] of TShape;
    procedure blocksSozd;
  end;
var
  Form1: TForm1;
  Blocks:TBlocks;
 
implementation
 
{$R *.dfm}
 
procedure TBlocks.blocksSozd;
var
  i,j:Integer;
 
begin
  for j:=1 to m do
   for i:=1 to n do
   begin
     Ablock[i,j]:=TBlocks.Create(Form1);
     Ablock[i,j].Height:=25;
     Ablock[i,j].Width:=125;
     Ablock[i,j].Top:=(j-1)*Ablock[i,j].Height;
     Ablock[i,j].Left:=Ablock[i,j].Width*(i-1);
     Ablock[i,j].Parent:=Form1;
   end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Blocks.blocksSozd
end;
 
end.

procedure TBlocks.blocksSozd;
var
  i,j:Integer;
begin
  for j:=1 to m do
   for i:=1 to n do
   begin
   Blocks:=TBlocks.Create(Form1);
     Blocks.ABlock[i,j]:=TShape.Create(self);
     Blocks. Ablock[i,j].Height:=25;
     Blocks.Ablock[i,j].Width:=125;
     Blocks.Ablock[i,j].Top:=(j-1)*(Blocks.Ablock[i,j].Height);
     Blocks.Ablock[i,j].Left:=(Blocks.Ablock[i,j].Width)*(i-1);
     Blocks.Ablock[i,j].Parent:=Form1;
   end;
end;

ABlock:array[1..n,1..m] of TShape;

ABlock:array of TShape;
...
SetLength(Ablock, <length>);