[manolop]

yo utilzo el TZipmaster y este sería un ejemplo....

Código Delphi [-]
     Zip.Dll_Load;

      zip.FSpecArgs.Append('*.*');
   
     zip.RootDir:=directorio_proyecto;
     if fdestino<>'' then
       Zip.ZipFilename :=fdestino   //fichero q creara
  

     Zip.AddOptions := Zip.AddOptions + [AddRecurseDirs, AddDirNames];
         
     try
        Zip.Add;
     except
       on exception do
         begin
           Cursor:=crDefault;
           Application.MessageBox('Falló la compresión',PAnsiChar(Main.get_nombre_aplicacion),mb_iconError+mb_OK);
         end;
     end;
     Zip.Dll_Load;

Espero que te sirva, un saludo