DELPHI7 创建excel工作薄时，提示： "拒绝访问"

Question

DELPHI7 创建excel工作薄时，提示：raise exception class EoleSyserror with message "拒绝访问"

程序
var
eclapp,workbook:variant;
...
begin
...
try
eclapp:=createoleobject('Excel.Application');
WorkBook:=createoleobject('Excel.sheet');
try
workbook:=eclapp.workbooks.add;//运行到此处提示以上错误
...

希望得到高手的指点