This is a sample how to zip/unzip a number of Update files in a store.
If you decide to use it, you might want to add some exception handlers
and/or change the code regarding deletion of files after compressing them.

Note: You need the (free for personal use) ZipForge component:
http://www.componentace.com/zip_component_zip_delphi_zipforge.htm

The DLL uses two routine names:

Admin_ZipUpdateFiles
Admin_UnzipUpdateFiles

One parameter is necessary: it's the full path of the store's directory.

When calling the stored procedure, you can use this code to get the path:

DECLARE FStorePath VARCHAR;

Execute Immediate 'select Path INTO ? from configuration.stores where
name = ''My_Local_In_Store''' using FStorePath;

CALL Admin_ZipUpdateFiles(FStorePath) or
CALL Admin_UnzipUpdateFiles(FStorePath)

Uli