如何写ActiveX Libaray,推荐书或者源码。(100分)

写了个activex libaray,代码：
m_scriptContext:IScriptingContext;

procedure TMemberPower.EndPage;
begin
m_scriptContext := nil;
end;
procedure TMemberPower.StartPage(const unk: IUnknown);
begin
m_scriptContext := unk as IScriptingContext;
end;
procedure TMemberPower.Test;
begin
m_scriptContext.Response.Write('ActiveX Test For Delphi');
end;
调用：
<% set oE=server.createobject("Project2.MemberPower")
MemberPower.Test()
%>
错误
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
/Default.asp, 第 12 行

调用：
<% set oE=server.createobject("Project2.MemberPower")
MemberPower.Test()
%>
oE.Text()啦