پسورد گذاری بر روی فایل zip

[h_mohamadi]

سلام دوستان من می خواهم یک فایل zip را که با ziptv دارم می سازم را پسورد بگذارم ولی جواب نمی دهد
کد من

Procedure ZIP(dir,name:String);
begin
 min_f.Zip1.Password:='1234'; // default
 min_f.Zip1.ArchiveFile :=dir+'\'+name1+'.zip';      // archive filename   curdir
 min_f.Zip1.DateAttribute := daFileDate;    // default value
 min_f.Zip1.StoredDirNames := sdRelative;   // default value
 min_f.Zip1.CompressMethod := cmDeflate;    // default value
 min_f.Zip1.Switch := swAdd;                // default value
 min_f.Zip1.StoreEmptySubDirs := False;     // default value
 min_f.Zip1.ExcludeSpec.Clear();
 min_f.Zip1.FileSpec.Clear();
 min_f.Zip1.FileSpec.Add(dir+'\*.*');  // test with c:\windows\*.txt //'
 min_f.Zip1.SetAttribute(fsZeroAttr, True); // default
 min_f.Zip1.SetAttribute(fsArchive, True);  // default
 min_f.Zip1.SetAttribute(fsDirectory, True); // default = False
 min_f.Zip1.SetAttribute(fsHidden, True);   // default = False
 min_f.Zip1.SetAttribute(fsReadOnly, True); // default
 min_f.Zip1.SetAttribute(fsSysFile, True);  // default = False
 min_f.Zip1.SetAttributeEx(fsZeroAttr, False); // default
 min_f.Zip1.SetAttributeEx(fsArchive, False); // default
 min_f.Zip1.SetAttributeEx(fsDirectory, False); // default
 min_f.Zip1.SetAttributeEx(fsHidden, False); // default
 min_f.Zip1.SetAttributeEx(fsReadOnly, False); // default
 min_f.Zip1.SetAttributeEx(fsSysFile, False); // default
 min_f.Zip1.Passwords.Clear;
 min_f.Zip1.Passwords.Insert(0,'1234');
 min_f.Zip1.Compress();
end;

راستی مسیر فایل های من داخلش چند تا فولدر است چطوری می توانم بگم که مسیر را با تمام فولدرها و فایل های داخلش zip کن