Bei StringListe Listenindex überschreitet das Maximum

[p80286]

Das ist doch nicht dein Ernst?
oder hab ich was übersehen?

Delphi-Quellcode:

procedure TFrmHpt.ProceedSections(Ini: TIniFile; const IniName: string);
var
  Sections: TStringlist;
  i: integer;
begin
  Sections := TStringlist.Create;
  try
    for i := 0 to Sections.Count - 1 do   { sections ist leer! }
      ProceedSectionValues(Ini, Sections[i], IniName);
  finally
    Sections.Free;
  end;
end;

Da fehlt doch noch ein ReadSections

Gruß
K-H