function Decompress(FileName, DestDir: String): Boolean;      
var
  ArcClass: TJclDecompressArchiveClass;
  MyArc: TJclDecompressArchive;
  //WideString    -     Имена файлов
begin
  Decompress:= False;
  // Filename = name.7z или name.zip
  // DestDir = полный путь к существующему каталогу
  //ArcClass:= GetArchiveFormats.FindDecompressFormat(FileName);
  ArcClass:= GetArchiveFormats.FindDecompressFormat(lowercase(FileName));
  Application.ProcessMessages;
  Try
    if Assigned(ArcClass) then
      Begin
        MyArc:= ArcClass.Create(FileName);
        if (MyArc is TJclSevenZipDecompressArchive) then
          Begin
            try
              MyArc.ListFiles; { Сбой, не делая это первым }
            { ExtractAll (AutocreateSubDir) должен быть установлен верно }
              MyArc.ExtractAll(DestDir, True);                     //ExtractSelected(DestDir, True);    !!! Полагаю надо это использовать, но как?
              Decompress:= True;
            except on E: EJclCompressionError do
              Begin
                ShowMessage(e.Message);
              End;
            end;
          End
        Else
          ShowMessage('Не поддерживаемая 7z.dll');
      End;
  Finally
    MyArc.Free;
  End;
end;

Вот нашёл:
Код:
uses
   JclCompression;

procedure TfrmSevenZipTest.Button1Click(Sender: TObject);
const
   FILENAME = 'F:\temp\test.zip';
var
   archiveclass: TJclDecompressArchiveClass;
   archive: TJclDecompressArchive;
   item: TJclCompressionItem;
   s: String;
   i: Integer;
begin
   archiveclass:= GetArchiveFormats.FindDecompressFormat(FILENAME);
   if not Assigned(archiveclass) then
      raise Exception.Create('Could not determine the Format of ' + FILENAME);
   archive:= archiveclass.Create(FILENAME);
   try
      if not (archive is TJclSevenZipDecompressArchive) then
         raise Exception.Create('This format is not handled by 7z.dll');
      archive.ListFiles;
      s:= Format('test.zip Item Count: %d'#13#10#13#10, [archive.ItemCount]);
      for i:= 0 to archive.ItemCount - 1 do
      begin
         item:= archive.Items[i];
         case item.Kind of
            ikFile:
               s:= s + IntToStr(i+1) + ': ' + item.PackedName + #13#10;
            ikDirectory:
               s:= s + IntToStr(i+1) + ': ' + item.PackedName + '\'#13#10;//'
         end;
      end;
      if archive.ItemCount > 0 then
      begin
//         archive.Items[0].Selected := true;
//         archive.ExtractSelected('F:\temp\test');
         archive.ExtractAll('F:\temp\test');
      end;
      ShowMessage(s);
   finally
      archive.Free;
   end;
end;