Delphi-PRAXiS - Hilfe bei stringlist problem

Hi Leute
Erst einmal Hallo.
Mein name ist Wootend und ich komme aus Wolfsburg.

Nun zu meinem Problem.

Ich arbeite an einem proof of concept...und zwar versuche ich einen kleine chat zu programmieren...
das ist auch erst mal nicht das problem...jedoch macht mir die userverwaltung zu schaffen!

ich habe eine ini-datei mit den belegten usernummern...um eine liste zu haben wurden ca. 5000 nummern erzeugt! (alle einzigartig)
wenn ich die inidatei jedoch lade und die registrierten user versuche in eine listview zu schreiben werden nur knapp 2081 user ausgelesen. ich habe den mechanismus schon mehrfach umgeschrieben und immer das gleiche ergebnis!

hier etwas quellcode

Code:

			procedure userladen;

var inhalt:tstringlist;

var zahl:integer;

begin

  iserv.regd.Clear;

  if FileExists(extractfilepath(paramstr(0))+'server\used.ini') then

  begin

    inhalt:=tstringlist.Create;

    userIni := TInifile.Create(extractfilepath(paramstr(0))+'server\used.ini');

    userini.ReadSections(inhalt);

    userini.Free;

    userIni := TInifile.Create(extractfilepath(paramstr(0))+'user\accounts.ini');

    for zahl:=0 to inhalt.Count-1 do

    begin

      iserv.regd.Items.Add.Caption:=userini.ReadString(inhalt[zahl],'nickname','empty');

      iserv.regd.Items.Item[iserv.regd.Items.Count-1].SubItems.add(inhalt[zahl]);

      iserv.regd.Items.Item[iserv.regd.Items.Count-1].SubItems.add(userini.ReadString(inhalt[zahl],'banned','yes'));

    end;

    inhalt.Free;

  end;

end;

kann mir wer sagen wo nun der fehler liegt? an der stringlist oder an den inifiles?
da ich lauter einzelne sektionen erzeuge sollte es daran ja nicht liegen oder?
hoffe ihr könnt mir helfen!!

-verzweifelter coder-