delphi做asp组件，遇到了难解的问题.......

各位大虾：本人在想做一个组件，把数据表中的数据导入Excel表中！在应用程序中，我编译通过！但是做一个asp组件，让web程序datatoexcel.asp调用该组件，并将数据导入excel表时，出错了！报“-2147418113 ”错误号，通过MSDN查找后，得知该错误如下解释：0x8000FFFF  -2147418113  Catastrophic failure
   咋办呀，源代码如下：....
uses
  ComObj, ActiveX, AspTlb, Project1_TLB, StdVcl,adodb,StdCtrls, Excel97, OleServer,sysutils;
....procedure Ttestasp.haha;
var
 ExcelApplication1: TExcelApplication;
 ExcelWorkbook1: TExcelWorkbook;
 query:Tadoquery;
 wbbk:_workbook;
 sheet:_worksheet;
 i:integer;
begin
excelworkbook1:=Texcelworkbook.Create(nil);
ExcelApplication1:=Texcelapplication.Create(nil);
try
 excelworkbook1.ConnectTo(excelapplication1.ActiveWorkbook);
except
 response.write('连接excel失败!');
end;
 wbbk:=excelapplication1.ActiveWorkbook;
 sheet:=wbbk.activesheet as _worksheet;
 query:=Tadoquery.create(nil);
 query.ConnectionString:='Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=sa;Data Source=test';
 query.Close;
 query.SQL.clear;
 query.sql.add('select * from table');
 query.open;
for i:=1 to 10 do
 begin
  sheet.Cells.Item[i,1]:=query.fieldbyname('fields').asstring;
  query.Next;
 end;
 response.write(inttostr(query.recordcount)+'<br>');
 response.write('succeed to excel');
 excelapplication1.Disconnect;
 excelworkbook1.Disconnect;
end;
......
编译成project.dll后，让datatoexcel.asp
  Set DelphiASPObj = Server.CreateObject("project1.testasp") 
   delphiaspobj.haha
调用后，不好用！但是，在应用程序中编译成project.exe，去可以使用！
请帮忙了！谢谢了