1:
2:
3:
4:
5:

type
TFeldShape = array[0..N-1, 0..N-1] of TShape; 
[...]
 public
    FeldShape : TFeldShape;					

1:
2:
3:
4:
5:

type
    TFeldShape = array[0..30, 0..30] of TShape; 
[...]
 public
    FeldShape : TFeldShape;					

1:
2:
3:
4:
5:
6:
7:
8:

const
  Nmax = 35; 
[...]
type
    TFeldShape = array[0..NMax-1, 0..NMAX-1] of TShape; 
[...]
 public
    FeldShape : TFeldShape;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.FormCreate(Sender: TObject);
var snr,y,x : integer;
    shape : TShape;
begin
  for y := 0 to N-1 do
   for x := 0 to N-1 do begin
    Shape := TShape.Create(Nil); 
    Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
    snr := x +y *N +1;
    Shape.Name := 'Shape'+inttostr(snr); // Name der Komponente
    Shape.Left := 10+x*25;
    Shape.Top := 80+y*25;
    Shape.Width := 25;
    Shape.Height := 25;
    Shape.OnMouseDown := @Shape1MouseDown; // so weist man eine Methode zu
    FeldShape[x,y] := Shape;
   end;
  ClientHeight := N*25+100;
  ClientWidth := N*25+20;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormDestroy(Sender: TObject);
var y,x : integer;

begin
  for y := 0 to N-1 do
   for x := 0 to N-1 do begin
    if not FeldShape(nil) then FeldShape.free;
    FeldShape.free := FeldShape.nil;
   end;
end;