Delphi Zip Component ZipForge

program replace;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  ZipForge;

var
  Archiver: TZipForge;
begin
  // create ZipForge object
  Archiver := TZipForge.Create(nil);
  try
    // set the archive file name
    Archiver.FileName := 'c:\test.zip';
    // open archive
    Archiver.OpenArchive(fmOpenReadWrite);
    // add .txt files; older files will be replaced with newer
    Archiver.Options.OverwriteMode := omIfNewer;
    Archiver.BaseDir := 'C:\txt';
    Archiver.AddFiles('*.txt');
    // close archive
    Archiver.CloseArchive();
  except
     on E: Exception do
     begin
       Writeln('Error: ' + E.Message);
     end;
  end;
  Archiver.Free;
end.