[Alegun]

Ну или вот адаптированный кусок из демки к данному пакету

Код:

uses ZipForge;
...
  var
 fn: string;
 begin
  if SaveDialog1.Execute do
   begin
    fn:= ChangeFileExt(ExtractFileName(SaveDialog1.FileName), 'txt');
    Memo1.Lines.SaveToFile(fn);
    with TZipForge.Create(nil) do
     begin
      FileName:= SaveDialog1.FileName;
      OpenArchive(fmCreate);
      AddFromFile(fn);
      CloseArchive;
      Free;
     end;
    DeleteFile(fn);
   end;
end;