用opendialog控件打开*。XLS文件时，程序编译提示没有声明Varisempty变量。请帮忙，谢谢！ ( 积分: 20 )

DELPHI7开发的时候，用opendialog控件打开*。XLS文件，程序其中的出错一段如下:其中excelapplication1是variant类型。我想是不是需要添加其它的控件还是什么的，请大家指点一下。谢谢！以前是别人写的，可以编译的，可能是delphi的版本不一样还是什么原因？
if (extractfileext(opendialog1.filename)='.xls') then
begin //xls
try
if not VarIsEmpty(excelapplication1) then //出错，提示没有声明Varisempty
begin
excelapplication1.displayalerts:=false;
excelapplication1.quit;
varclear(excelapplication1);
end;
excelapplication1:=createoleobject('excel.application');
excelapplication1.Workbooks.Open(opendialog1.filename);
except
showmessage('对不起，文件不能打开！');
exit;
end;

DELPHI7开发的时候，用opendialog控件打开*。XLS文件，程序其中的出错一段如下:其中excelapplication1是variant类型。我想是不是需要添加其它的控件还是什么的，请大家指点一下。谢谢！以前是别人写的，可以编译的，可能是delphi的版本不一样还是什么原因？
if (extractfileext(opendialog1.filename)='.xls') then
begin //xls
try
if not VarIsEmpty(excelapplication1) then //出错，提示没有声明Varisempty
begin
excelapplication1.displayalerts:=false;
excelapplication1.quit;
varclear(excelapplication1);
end;
excelapplication1:=createoleobject('excel.application');
excelapplication1.Workbooks.Open(opendialog1.filename);
except
showmessage('对不起，文件不能打开！');
exit;
end;

use一下system单元