Internal Error L973

[dassi87]

Hi,

hab das ganze jetzt noch mal versucht neu aufzubauen und dabei rausgefunden, dass er den Fehler schon nach der Typn-Deklaration anzeigt, genauer gesagt beim Record liegen muss. Da genau das der Teil ist, der neu für mich ist, stell ich grad mal den Quelltext rein und hoffe/denke dass sich jemand damit besser auskennt als ich und vielleicht den möglichen Fehler entdeckt:

Delphi-Quellcode:

type
  Tzweiter_Versuch = class(TForm)
    BitBtn_Auto: TBitBtn;
    BitBtn_Bus: TBitBtn;
    BitBtn_LKW: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  TFahrzeug = class
  public
  FPosX: integer;
  FPosY: integer;
  FWidth: integer;
  FHeight: integer;
  FArt: string;
  FDelay: integer;
  end;


  TFahrzeuginstanz = record
  Instanz: TFahrzeug;
  empty: boolean;
  end;

var
  zweiter_Versuch: Tzweiter_Versuch;
  Fahrzeuge: array[0..15] of TFahrzeuginstanz;
  end

Danke schon mal

[edit=sakura] [delphi]-Tags. Mfg, sakura[/edit]