BCB压缩,该怎么解决

BCB压缩
哪位大神给予帮助，代码如下：
  .........
  .........
  .........
  MyPath = FileName + FileName1+"\\";
  MyFileName = FileName1 + ".taf";
  //打包
  ZipFile(MyPath,MyFileName);


//-----------------------------------------
// 生成试卷包
//-----------------------------------------
void TFormSendMail::ZipFile(AnsiString sPath,AnsiString sFileName)
{

  //压缩文件夹下所有文件
  VCLZip->IncludeArchiveFiles = true;
  VCLZip->IncludeHiddenFiles = true;
  VCLZip->IncludeReadOnlyFiles = false;
  VCLZip->IncludeSysFiles = true;
  VCLZip->FilesList->Add(sPath + "*.*");
  VCLZip->Recurse = true;
  VCLZip->ZipName = sPath + sFileName;
  VCLZip->Zip();

}

单步跑到 VCLZip->Zip();后就停止住了，压缩不了。不知道是什么原因，求正解！！！

[解决办法]
这个控件真没用过，
找了几个资料，你看看，是不是参数设置方面的问题，http://hi.baidu.com/warrially/item/1323cbfd51952819e3e3bd60
http://www.cnblogs.com/11wf/archive/2011/11/26/2264033.html