AV bei array größer 2000

[jaschu]

Okay, nächste Frage:

Wenn ich das Array größer als 2000 Felder mache, dann bekomme ich sofort eine Zugriffsverletzung.

Wenn ich unter 2000 Feldern bleibe, bekomme ich eine Zugriffsverletzung beim Schließen. WTF!?

Delphi-Quellcode:

  procedure Tmp3list.newdirlist(pfad : String);
  var fertigtemp : TStringlist; x : Integer;
  begin
      x := 0 ;
      fertigtemp := TStringlist.Create;

      { ... Befüllen der fertigtemp }

      setlength(items, fertigtemp.count); 
      for x := 0 to fertigtemp.count-1 do
      begin
        items[x].pfad := fertigtemp.Strings[x];
        items[x].listid := pfad;
      end;