Listview einträge laden funzt nicht ganz!!

[Wadim]

hi,

wie schon oben steht versuche ich die listview einträge (items) von einer ini datei zu laden. das speicher hab ich hingekriegt aber das laden funzt irgendwie nicht so wie ich will. der fehler ist das er alles in einer spalte laden, weiß einer warum??

hier erstmal der quellcode:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var a,b : integer;
begin
ListItem := ListView1.Items.Add;
with  TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
  a := readinteger('index','count',0);  //definiere ich schon beim speichern damit er weiß wieviel einträge er laden soll
  label1.Caption := inttostr (a);
  b := 1;
  while b <= a do begin
    with  TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do begin
      try
      listitem.Caption := readstring ('Erster Eintrag','Position' + inttostr(b),'');
      listitem.SubItems.Add(readstring ('Zweiter Eintrag','Position' + inttostr(b),''));
      listitem.SubItems.Add('');  // da ich 3 einträge habe und der 3 vorest mal leer sein soll
      b := b +1;
      finally
      free;
      end;
    end;
  end;
end;