Exception beim SetLength für ein Array

[nwnssolutionssoftware]

Hallo Community,
leider habe ich mal wieder ein kleines Problem...
Ich bekomme beim SetLength eine Excpetion. Nutze aktuell dafür Lazarus vllt. kann mir ja jemand helfen

Hier mal kurz der Aufbau des Objektes...

Code:

  TConnection = class
    Name             : String;
    Unterverbindung  : Boolean;
    ID               : String;
    User             : String;
    Pass             : String;
    UName            : String;
    UVorName         : String;
    Hauptcon         : String;
    repeaterip       : String;
    LetzteVerbindung : String;
    Image            : TPicture;
    Notes            : String;
    PCDATA           : String;
    Telefon          : String;
    procedure Clear;
    procedure Laden(dConnections: TDataSet);
    procedure Speichern(dConnections: TDataSet);
  end;

type

  { TConnectionListe }

  TConnectionListe = class
    Items : Array of TConnection;
    procedure Clear;
    function  Count:Integer;
    procedure Laden(dConnections : TDataSet);
    procedure SearchUnterCon(ID: String);
    procedure Speichern(dConnections : TDataSet);
  end;

Hier der Quellcode mit dem SetLength wo die Exception auftritt.

Code:

procedure TConnectionListe.Laden(dConnections: TDataSet);
var n : Integer;
begin
  if not dConnections.Active then dConnections.Open;
  dConnections.First;
  SetLength(Items, 100000);          <<<---- Hier tritt der Fehler auf
  n := 0;
  while not dConnections.EOF do
  begin
    Items[n].Laden(dConnections);
    Inc(n);
    dConnections.Next;
  end;
  SetLength(Items, n);
end;