Mehrere Records verschachteln

[Bee]

Und zwar habe ich eine Frage, was ist am untenstehenden Code flasch?
Die Arrays sollen Dynamisch werden, zum anderen bekomme ich eine Meldung Das ich die 2GB grenze überschritten habe, kann man das auch anders lösen.

Code:

 type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  TPreset = record
   Name: String;
   Choice: char;
   Value: array [] of Byte;
  end;
  TChannel = record
   Name: String;
   Choice: char;
   Min: Byte;
   Max: Byte;
   Is16Bit: Boolean;
  end;
  TFixture = record
   Name: String;
   IsHead: Boolean;
   ChCount: Byte;
   Channel: array [] of TChannel;
   Preset: array [] of TPreset;
  end;
  TManufacturer = record
   Name: String;
   FixCount: Byte;
   Fixture: array [] of TFixture
  end;
var
  Form1: TForm1;
  Fixlib: array [] of TManufacturer;

Danke!
Bee