Ну или вот адаптированный кусок из демки к данному пакету
Код:
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;