7z архивы

[Deep88]

использую компонент sevenzip.
процедура распаковки выглядит так

  function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
    form1.ProgressBar1.Max := value else
     form1.ProgressBar1.Position := value;
   Result := S_OK;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  with CreateInArchive(CLSID_CFormat7z) do
   begin
     OpenFile('test.7z');
     SetProgressCallback(nil, ProgressCallback);
     ExtractTo('c:\1');
   end;
end;

собсно теперь 2 вопроса.
1. как подключитть второй прогресс бар чтобы он показывал общий % всех архивов если их несолько.
2. как извлечь архивы из заранее подготовленого списка? к примеру если в папке с программой будет лежать 1.txt и там будут просто перечислены архивы 7z.

[Deep88]

вопрос 2 снят, сделал через tstringlist, как сделать общий прогресс бар и лабел с именем извлекаемого файла?