Código Delphi [-]Zip.AddOptions := []; Zip.AddOptions := Zip.AddOptions + [AddEncrypt];
Zip.AddOptions := []; Zip.AddOptions := Zip.AddOptions + [AddEncrypt];