Delphi Zip Component ZipForge

program ZipStream;

{$APPTYPE CONSOLE}

uses
  // Add a ZipForge unit to the program
  SysUtils, ZipForge, Classes;

var
  archiver : TZipForge;
  fileStream : TFileStream;

begin
  // Create an instance of the TZipForge class
  archiver := TZipForge.Create(nil);
  try
  with archiver do
  begin
    // 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
    OpenArchive(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
    AddFromStream('anothername.txt', fileStream);
    CloseArchive();
  end;
  except
  on E: Exception do
    begin
      Writeln('Exception: ', E.Message);
      // Wait for the key to be pressed
      Readln;
    end;
  end;
end.