Objekte mi gleichem namen

[Neutral General]

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;