[AlexandrV]

помоему я и так начел использовать ReadSection

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'LibxEdit.ini');
  Ini.ReadSections(ListBox2.Items);
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
  Ini.ReadSection(ListBox2.Items.Strings[listbox2.itemindex],ListBox1.Items);
end;