初学者跪求vclzip控件使用方法

菜鸟跪求vclzip控件使用方法
请问在设置vclzip变量的时候在哪里设置啊？
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,vclzip;

type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;
  vclzip1:tvclzip;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
  begin
With VCLZip1 do
begin
ZipName := 'C:\news.zip';
FilesList.Add('C:\index.html');
FilesList.Add('C:\image');
Recurse := True;
StorePaths := True;
PackLevel := 9;
try
Zip
except
showmessage('error');
end;
end;
end;

end.
我这样写哪里有问题，现在运行起来总出错，请朋友们指点一下，刚接触，确实很陌生，我就是想把在同一目录下的一个文件和一个文件夹同时打包到一个zip压缩包里，并且压缩包内也要显示一个文件和一个文件夹，而不是没有目录的所有文件，用rar的命令行打不了zip包，winrar可以打zip包但是却不能显示子目录，而且这个类似功能小软件要分发到我们机关的所有人，有的机器还不确定有没有装winrar，所以只能求助第三方控件，请朋友们帮帮忙，确实很着急，谢谢。


------解决方案--------------------
这是我程序里写的一段 加个属性就可以。

with VCLZip1 do
begin
ZipName:=SysCfg.strFilePath +'\'+ DownFileName ;
RecreateDirs:=true; //注意这里 
StorePaths:=False;
FilesList.Add(SysCfg.strFilePath+'\CD\*.MP3');
Recurse := True;
try
Zip;
except
Application.MessageBox('压缩文件失败','错误',MB_OK+MB_ICONINFORMATION);
ggProgress.Progress :=0;
exit;
end;
end;