Proc by to nebylo pouzitelny , treba takto: (ber jen jako priklad)

  getdir(0,S);
  opicak := TIniFile.Create(S+'\blbinka.ini');
  bubu := Tstringlist.create;
with opicak do
  begin
  ReadSection('Name',bubu);
  for I := 0 to bubu.Count - 1 do
  begin
  ddt:=bubu.Strings[i];
  jmeno :=   readString('Name', ddt, jmeno);
  heslo :=  readString('Hesla', jmeno, heslo);
  dalsi := readString('neco', jmeno, dalsi);
  add   :=   readString('add', jmeno, add);
  ....
  atd.
  ...
with Listbox1 do
  begin
  items.add(inttostr(i)+':. '+jmeno+' '+heslo+' '+dalsi+' '+add);    
  end;
emd;

Pokud mas potrebu vice klicu pouzij Tstrings misto string (jmeno,heslo...) promennych.
Mozna to neni uplne nejlepsi zpusob.