1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
    ini: TIniFile;
begin
  ini:=TIniFile.Create('config.ini');
  try
    for i:=0 to ListBox1.Items.Count-1 do
    begin
    s:='Profil'+IntToStr(i+1);
    ini.WriteString('Profile',s,ListBox1.Items[i]);
    end;
  finally
    ini.free;
  end;
end;					

1:
2:
3:
4:
5:

for i:=1 to //letze Zeile
begin
 a:=ini.ReadString('Profile',Profil[i],'non');
 ListBox1.Items.Add(a);
end;					

1:

Ini.ReadSection('Profile', Listbox1.Items);