try
    showmessage('0');
    aArchive := TJclDecompressArchive.Create('D:\test\files\testarchive.zip.001');
    showmessage('1');
    aArchive.AddVolume('D:\test\files\testarchive.zip.002');
    showmessage('2');
    aArchive.AddVolume('D:\test\files\testarchive.zip.003');
    showmessage('3');
    aArchive.AddVolume('D:\test\files\testarchive.zip.004');
    showmessage('4');
    aArchive.AddVolume('D:\test\files\testarchive.zip.005');
    showmessage('5');
    aArchive.AddVolume('D:\test\files\testarchive.zip.006');
    showmessage('6');
    aArchive.AddVolume('D:\test\files\testarchive.zip.007');
    showmessage('7');
    aArchive.AddVolume('D:\test\files\testarchive.zip.008');
    showmessage('8');
    aArchive.AddVolume('D:\test\files\testarchive.zip.009');
    showmessage('9');
    aArchive.AddVolume('D:\test\files\testarchive.zip.010');
    showmessage('Extract');
    aArchive.ExtractAll('D:\test');
    showmessage('Done');
  except
    on E : Exception do
      ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
  end;

failed to load 7z.dll

function TJclSevenzipDecompressArchive.GetInArchive: IInArchive;
var
  SevenzipCLSID, InterfaceID: TGUID;
begin
  if not Assigned(FInArchive) then
  begin
    SevenzipCLSID := ArchiveCLSID;
    InterfaceID := Sevenzip.IInArchive;
    if (not Is7ZipLoaded) and (not Load7Zip) then
      raise EJclCompressionError.CreateRes(@RsCompression7zLoadError);
    if (Sevenzip.CreateObject(@SevenzipCLSID, @InterfaceID, FInArchive) <> ERROR_SUCCESS) // как сказал дебаггер эксепшин происходит в этой строчке
      or not Assigned(FInArchive) then
      raise EJclCompressionError.CreateResFmt(@RsCompression7zInArchiveError, [GUIDToString(SevenzipCLSID)]);
    FExtractingAllIndex := -1;
  end;
  Result := FInArchive;
end;

    NbIndices := ItemCount;
    SetLength(Indices, NbIndices);
    for Index := 0 to NbIndices - 1 do // вот здесь
    begin

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    ExtractTo('D:\test\test.zip.001', 'D:\test');
  except on E: Exception do
    ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
  end;
end;

procedure ExtractTo(AArchive, ADestPath: String);
var
  Cmd, Params: String;
begin
  Params:= Format('x -y %s -o%s', [AArchive, ADestPath]);
  Cmd:= '7z.exe';
  OutputDebugString(PChar(Cmd + ' ' + Params));
  ShellExecute(Cmd+' '+Params); // 1 вариант
  ShellExecuteWait(Cmd, Params); // 2 вариант
end;

function ShellExecuteWait(AppName, Params: String; WaitTime: Cardinal = INFINITE; ShowMode: Integer = SW_SHOWMINIMIZED): integer;
var
  ShellInfo: TShellExecuteInfo;
  ExitCode: Cardinal;
begin
  Screen.Cursor:= crAppStart;
  try
    with ShellInfo do
    begin
      cbSize:= SizeOf(TShellExecuteInfo);
      fMask:= SEE_MASK_NOCLOSEPROCESS;
      Wnd:= HWND_DESKTOP;
      lpVerb:= 'open';
      lpFile:= PChar(AppName);
      lpParameters:= PChar(Params);
      lpDirectory:= nil;
      nShow:= ShowMode;
    end;

    if not ShellExecuteEx(@ShellInfo) then RaiseLastOSError;

    if ShellInfo.hProcess <> 0 then
      try
        WaitForSingleObject(ShellInfo.hProcess, INFINITE);
        GetExitCodeProcess(ShellInfo.hProcess, ExitCode);
        Result:= ExitCode;
      finally
        CloseHandle(ShellInfo.hProcess);
      end
    else
      Result:= -1;
    Application.BringToFront;
    //SetForegroundWindow(Application.MainForm.Handle);
  finally
    Screen.Cursor:= crDefault;
  end;
end;