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

سلام دوستان من می خواهم یک فایل 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 کن