So, wie der Quelltext dort steht, ist es klar, dass es nicht funktioniert:
Delphi-Quellcode:
listview1.Clear;
...
for J := 0 to listview1.items.Count - 1 do
Fällt dir was auf? Wobei ich anhand der starken Einrückungen davon ausgehe, dass du einige Zeilen Quelltext weggelassen hast, um nur das Wichtige zu zeigen (was ja richtig ist).
Davon abgesehen erzeugst du in der for-Schleife mit jedem Durchlauf eine Instanz von TIniFile, ohne diese zu zerstören. Besser diesen Aufruf in der Schleife weglassen, vor der Schleife erzeugen und danach (oder wenn nicht mehr benötigt) wieder zerstören.
MfG Dalai