Имена всех секций всех ini-файлов (DELPHI)

[Dj_SheLL]

Пытаюсь прочитать все имена всех ini-файлов в текущей папке,делаю вот так

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, inifiles;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var SR:TSearchRec;
    FindRes,i:Integer;
    Ini:TIniFile;
    dir:string;
begin
ListBox1.Clear;
FindRes:=FindFirst('*.ini',faAnyFile,SR);
While FindRes=0 do
   begin
      ListBox1.Items.Add(SR.Name);
      FindRes:=FindNext(SR);
   end;
FindClose(SR);

for i:=0 to ListBox1.Items.Count-1 do
begin
GetDir(0,dir);
Ini:=TIniFile.Create(dir+'\'+ListBox1.Items.Strings[i]);
Ini.ReadSections(ListBox2.Items);
Ini.Free;
end;
end;

end.

Проблема в том,что читаются только секции последнего найденного файла из списка ListBox1.
И посоветуйте,как можно минимизировать всё,что я наваял.ListBox-ы я заменю позже на StringList.

[Прик]

Читаются все файлы. Только секции текущего файла заменяют в ListBox2 считанные на предыдущем шаге.
Здесь без еще одного цикла не обойтись.
А минимизировать в коде нечего. Он и так крошечный.

[Dj_SheLL]

Сообщение от Прик

Читаются все файлы. Только секции каждого файла в ListBox2 заменяют уже считанные на предыдущем шаге.
Здесь без еще одного цикла не обойтись.

А можно пожалуйста пример небольшой?

[Прик]

Прошу прощения, не понял. Пример чего?

[Dj_SheLL]

Пример доп.цикла,если не затруднит.

[Прик]

Так примерно:

procedure TForm1.Button1Click(Sender: TObject);
var
  ...
  SL : TStringList;
  N : Integer;
begin

  ...
  SL := TStringList.Create;
  try
    ListBox2.Items.Clear;
    for i := 0 to ListBox1.Items.Count-1 do begin
      GetDir(0,dir);
      Ini := TIniFile.Create(dir+'\'+ListBox1.Items.Strings[i]);
      Ini.ReadSections(SL);
      for N := 0 to SL.Count-1 do
        ListBox2.Items.Add(SL[N]);
      Ini.Free;
    end;
  finally
    SL.Free;
  end;
end;

[Dj_SheLL]

Работает!Огромнейшее спасибо!Весы "подкачал"

[Прик]

Благодарю Удачи!