Schleife zum Erstellen von Shapes

[wicht]

i solltest du lokal in der Prozedur definieren. Ausserdem musst du erstmal die Länge des Arrays setzen. Quasi so:

Delphi-Quellcode:

var
  i: Integer;
begin
  SetLength(Koerper, 10);
  for i := 0 to 9 do
  begin
    Koerper[i]:=TShape.Create(Form1); 
    // ...
  end;
end;

Edit: Der Kasten kam nicht