работа с sevenzip.pas

[Volkogriz]

Доброе время суток!
Не получается по порядку распаковать архивы.
По пойму вообще не работает(

procedure TForm1.Button1Click(Sender: TObject);
var
SetStr:String;
Accounts,SetupFiles:TStringList;
q,i:integer;
begin
SetupFiles:=TStringList.Create;
Accounts:=TStringList.Create;
SetStr:=IniFile.ReadString('setupProgram','Program1','');//ищу файл со спискам архивов.
IniKey:= TIniFile.Create(PAnsiChar(SetStr));//Тут понятно
IniKey.ReadSection('Setup',Accounts);//создаю список в TStringList
for q := 0 to Accounts.Count-1 do
if (Accounts[q]<>'') and (SetupFiles.IndexOf(Accounts[q])=-1) then
SetupFiles.Add(Accounts[q]);//Чищу но не чистится(
Вылетает ошибка List index out of bounds (х)
SetupFiles.SaveToFile('ert.txt');//так чисто для себя
 with CreateInArchive(CLSID_CFormat7z) do
  begin
    for i := 0 to SetupFiles.Count-1 do //иду по списку
    SetPasswordCallback(nil, PasswordCallback);
    SetPassword(PassCreate(SetStr));
    Label9.Caption:= PassCreate(SetStr);
    OpenFile( IniKey.ReadString('Setup',SetupFiles.Strings[i],'')); //Гружу файл (пытаюсь) :)
//Итог: кажется просто проходит по списку до  последней строки и 
//List index out of bounds (х) на пустой))
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('C:\StupProg\2\');
    ProgressBar1.Position:=0;
end;
end;

Прошу помочь, не как не пойму как правильно сделать.
За ранее благодарен!
С уважением,
Volkogriz!

[Аватар]

    for i := 0 to SetupFiles.Count-1 do //иду по списку
    SetPasswordCallback(nil, PasswordCallback);

На этом цикл и заканчивается - нет begin после do. А все из-за того, что код не форматирован, а как курица лапой написан

[Volkogriz]

Сообщение от Аватар

    for i := 0 to SetupFiles.Count-1 do //иду по списку
    SetPasswordCallback(nil, PasswordCallback);

На этом цикл и заканчивается - нет begin после do. А все из-за того, что код не форматирован, а как курица лапой написан

Ну написан он так )
Я просто писал много вариантов вернулся к этому.)