// Add a ZipForge unit to the program
SysUtils, ZipForge, Classes;
archiver : TZipForge;
fileStream : TFileStream;
// Create an instance of the TZipForge class
archiver := TZipForge.Create(nil);
with archiver do
// Set the name of the archive file we want to create
FileName := 'C:\test.zip';
// Because we create a new archive,
// we set Mode to fmCreate
// Set base (default) directory for all archive operations
BaseDir := 'C:\';
// Create the new TFileStream object for reading from the file.
// If file doesn't exist, an exception will be thrown
fileStream := TFileStream.Create('C:\test.txt', fmOpenReadWrite);
// Add the stream to the archive.
// Specify the name of the file in the archive,
// where stream data is saved
on E: Exception do
Writeln('Exception: ', E.Message);
// Wait for the key to be pressed
We made three requests of the technical support personnel and despite the fact that these were all implementation questions (not bugs in their software) we received support within 24 hours. It is rare to get such good customer support these days and I really appreciate everything ComponentAce has done for us.