Una domanda, hai già provato così?
interface
uses
.., AbZipper,AbZipTyp,AbUtils;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
Zip : TAbZipper;
begin
Zip := TAbZipper.Create(Application);
Zip.ArchiveType := atZip;
Zip.FileName := 'C:\Myfiles\xx.ZIP'; <--- Rename file name to avoid overwrite
Zip.AddFiles(Edit1.Text,1); <---Name of your file to compress
Zip.ZipfileComment := 'AutoGenerado.';
Zip.CompressionMethodToUse := smBestMethod;
zip.DeflationOption := doMaximum;
Zip.Password := 'abcdefg123';
zip.Save;
zip.CloseArchive;
end;
E' un codice trovato sulla rete.