1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  
  TPunkt = record
             x,y,z : integer;
           end;
  TPolygon = record
               Punkte2D : array of TPoint;
               Punkte3D : array of TPunkt;
               Kantenfarbe, Flaechenfarbe : TColor;
               brush : TBrush;
             end;
  TKoerper = array of TPolygon;					

1:
2:
3:
4:
5:
6:
7:
8:

...
var
  I: Integer;
  MyArray: array of Tirgendwas;
begin
  SetLength(MyArray, MySize);
  for I := Low(MyArray) to High(MyArray) do
  ...