Mehrere Records verschachteln

[Bee]

Hallo Christian, Hallo jbg!

ich habe meinen Code folgendermaßen abgeändert und erhalte bei der Syntaxprüfung trozdem Fehlermeldungen, ich habe sie mal als Kommentar dazu geschrieben

Code:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  TPreset = record
   Name : String;
   Choice : char;
   Value : array of Byte;  { [ erwartet of gefunden.}
  end;                     { of erwartet end gefunden.}
  TChannel = record
   Name : String;
   Choice : char;
   Min : Byte;
   Max : Byte;
   Is16Bit : Boolean;
  end;
  TFixture = record
   Name : String;
   IsHead : Boolean;
   ChCount : Byte;
   Channel : array of TChannle;   { [ erwartet of gefunden, ] erwartet aber ; gefunden}
   Preset : array of TPreset;     { of erwartet aber Bezeichner Preset gefunden}
  end;                            { zu oben , oder : erwartet aber ; gefunden, Typ erwartet aber END gefunden}
  TManufacturer = record
   Name : String;
   FixCount : Byte;
   Fixture : array of TFixture;    { [ erwartet aber of gefunden, Ordinaltyp erforderlich}
  end;                             { of erwartet aber End gefunden}
var
  Form1: TForm1;
  Fixlib: array of TManufacturer;  { [ erwartet aber of gefunden, Ordinaltyp erforderlich}
implementation                     { of erwartet aber IMPLEMENTATION gefunden}

irgendwas passt noch nicht so ganz.
Gruß Bee