请问有没有人用过ZIPTV6.32 FOR DELPHI7，好像有ＢＵＧ(100分)

前几天装了ziptv_632_src，程序中用它来根据变量Ｖ１生成相应文件名的ZIP，代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
v1:string;
begin
v1:=edit1.text;
ZIP1.ArchiveFile:='./'+v1+'a.zip';
ZIP1.FileSpec.Clear;
ZIP1.FileSpec.Add('./fimage/'+v1+'a.tif');
ZIP1.Compress;
ZIP1.Free;
end;

调试结果：
点击第一次，成功生成相应的ZIP文件，但第二次点击就出错：
Project Project2.exe raised exception class EAccessViolation with message 'Access violation at address 004BBEED in module 'Project2.exe'. Read of address 0000000'. Process stopped. Use Step or Run to continue.

指针停在
ZIP1.ArchiveFile:='./'+v1+'a.zip';

请教各位有没有用过这个VCL，是不是它有BUG，大家有没有FOR Delphi7的zip控件，介绍一下，听说DELPHI光盘带了一个，不知D7有没有，能否分享一下，谢谢！

我在试ZIPFORGE时发现是FREE的问题，去掉就好了。