for to do/ item aus listbox aus ini-datei laden

[Dr. Jack]

hi,

folgendes problem:
ich möchte aus einer listbox das item auslesen und dann aus einer ini-datei laden, siehe quellcode.

Delphi-Quellcode:

procedure Tdb.BitBtn1Click(Sender: TObject);
var I:integer;
    TS:string;   //teststring

begin
PIL:=1; //Positionsindex =zählvariable für schleife
ListFileDir(einstellungen.masterdb, ListBox1.Items);

for I := 0 to Listbox1.items.count -1 do
             begin

              ini:=Tinifile.create(einstellungen.masterdb+listbox1.items.strings[I]);  //ini-datei initialisieren
              // showmessage((Listbox1.items.strings[I]));                             //  nur zum test ob der pfad richtig ist

              stringgrid1.RowCount:=   stringgrid1.RowCount+1;

showmessage('file exists, Pfad: '+einstellungen.masterdb+listbox1.Items.strings[I]);    //  nur zum test ob der pfad richtig ist


              stringgrid1.cells[0,I]:=ini.readstring(listbox1.items.strings[I], 'Artikelname', stringgrid1.cells[0,I]);

so gehts jedenfalls nicht... :(

            //  TS:=ini.readstring(listbox1.items.strings[I], 'Artikelname', stringgrid1.cells[0,I]);
            //  showmessage('TS: '+TS);
            //  showmessage('I: '+ inttostr(I));

             end;
   end;