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;

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;