使用Delphi本机组件创建受密码保护的Zip文件

Question

我有一个Delphi项目，其中在某些用户操作上创建了受密码保护的zip文件。为了做到这一点，我们使用了第三方组件abbrevia。但我现在想通过使用system.zip单元的Delphi本机组件来实现这一点。

procedure CreateZip( zipfilename : string);
var
  Zipper : TZipFile;
begin
  Zipper := TZipFile.Create;
  Zipper.Open( zipfilename + '.zip',zmWrite);
  Zipper.Add('filename1.txt','',zcDeflate);
  Zipper.Add('filename2.txt','',zcDeflate);
  Zipper.Add('filename3.txt','',zcDeflate);
  Zipper.Free;
end;

这会创建一个zip文件，其名称作为参数传递给过程。但我希望生成的zip受密码保护。任何帮助将不胜感激。