Komponentennamen in Schleifenform als Array deklarieren

[kellerassel007]

Villeicht klappt es,
aber wenn ich die einzelnen Shapes anzusprechen versuche, also sie zum Beispiel sichtbar mache,
klappt das nicht (s. Quelltext u.)

Delphi-Quellcode:

  FOR i := 82 TO 250 DO
    begin
      Shape[i] := TShape.Create(self) ;
      Shape[i].Name := 'Shapes' + IntToStr(i) ;
      Shape[i].Visible := True ;
      Shape[i].Width := 20 ;
      Shape[i].Height := 20 ;
      Shape[i].Top := 300 ;
      Shape[i].Left := 300 ;
    end;