一模一样的代码，重写就出错了，请高手指点

Question

我在写asp组件的时候一模一样的代码重新写了一个文件，编译通过了，但是执行的时候老是报 
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
错误类型：
Project1.test (0x8000FFFF)
/dll/23/test.asp, 第 9 行
第9行就是
<% Set DelphiASPObj = Server.CreateObject("Project1.test") 
   DelphiASPObj.test("test")
%>
delphi代码是
procedure Ttest.test(const filename: WideString);
begin
    response.write(filename);
end;
请问怎么会一会对，一会错呢？我被他弄的很郁闷！！！