Abbruchbedingung: Anzahl von Elementen in Ini-Sektion

[Jacob]

Guten Abend,
bezüglich der Arbeit mit Inifiles hat sich mir ein kleines Problem in den Weg gestellt.

Zum Befüllen einer ListBox mit Daten aus einer Ini-Datei nutze ich eine Schleife. Diese soll genau dann abbrechen, wenn in der Sektion keine weiteren Elemente vorhanden sind.

Code:

function AddItems(_file: WideString; _object: TListBox): TListBox;
var
  ini: TIniFile;
  _check: Boolean;
  Vorname, Nachname, Alter, PLZ, Stadt, Straße, Haus, Kommentar, Index: string;
  _counter: Integer;
begin

  _check := True;
  _counter := 0;

  ini := TIniFile.Create(_file);
  try

    while _check = True do
    begin
      Vorname := ini.ReadString('Vorname', Format('vorname%.0n',[_counter+ 0.0]), '');
      Nachname := ini.ReadString('Nachname', Format('nachname%.0n',[_counter+ 0.0]), '');
      Alter := ini.ReadString('Alter', Format('alter%.0n',[_counter+ 0.0]), '');
      PLZ := ini.ReadString('PLZ', Format('plz%.0n',[_counter+ 0.0]), '');
      Stadt := ini.ReadString('Stadt', Format('stadt%.0n',[_counter+ 0.0]), '');
      Straße := ini.ReadString('Strasse', Format('strasse%.0n',[_counter+ 0.0]), '');
      Haus := ini.ReadString('Haus', Format('haus%.0n',[_counter+ 0.0]), '');
      Kommentar := ini.ReadString('Kommentar', Format('kommentar%.0n',[_counter+ 0.0]), '');
      Index := ini.ReadString('Index', Format('index%.0n',[_counter+ 0.0]), '');

      _object.Items.Add(Vorname+' '+Nachname+', '+Alter+', '+Straße+' '+Haus+', '+PLZ+' '+Stadt);

      //Hier sollte nun eine Abbruchbedingung stehen...  
        
      _counter := _counter + 1;
    end;

    Result := _object;

  finally
    ini.Free;
  end;

end;

Ideen?

Vielen Dank für die Antworten!