vclzip控件如何用？我只会压缩，不会解压缩。(50分)

我改写了源代码，使它可以用于delphi5.控件可在qhx.51.net/vclzip.rar下载。
压缩的程序如下：
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
vclzip1.FilesList.Add(FileListBox1.FileName);
if SaveDialog1.Execute then
vclzip1.ZipName:=SaveDialog1.FileName;
vclzip1.Zip;
end;

if OpenDialog1.Execute then
begin
VCLUnZip1.ClearZip;
VCLUnZip1.ZipName:=OpenDialog1.FileName;
VCLUnZip1.DestDir:=ExtractFileDir(Application.ExeName);
VCLUnZip1.UnZip;
end;
//注：1.VCLUnZip.Doall:=True;
2.多谢问题的提出者，帮我解决数据压缩问题

多谢了。写成下面代码，可压缩多个文件。不知解压缩多个文件能不能行？
for i :=FileListbox1.ItemIndex-FileListbox1.SelCount+1 to FileListbox1.ItemIndex do
vclzip1.FilesList.Add(FileListBox1.Items);
if SaveDialog1.Execute then
vclzip1.ZipName:=SaveDialog1.FileName;
vclzip1.Zip;