Du musst/solltest die Shapes alle während der Laufzeit erzeugen.. dann hast du das Problem nicht..
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Shapes[1] := TShape.Create(Self); // vielleicht auch ohne die Klammer.. ka ob shapes ein Parent brauchen^^
with Shapes[1] do begin
Parent := Self; // wichtig wenn die Klammer nötig ist^^
Left := 100;
Top := 50;
Width:= 150;
Height:= 150;
...
end;
// das halt für jedes Shape
end;