shape1+1 ?

[malo]

Also, geschrieben ist sie richtig. Statt der TObjectList kannst du auch ein Array of TShape nehmen. Sieht in etwa so aus:

Delphi-Quellcode:

var
  ShapeArray: array[0..10] of TShape; //deklarieren

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 0 to 10 do
    ShapeArray[i] := TShape.Create(self); // erzeugen
end;

Jetzt kannst du mit ShapeArray[i] auf die einzelnen Shapes zugreifen.