OOP在三层系统中的应用 ?实例怎么不能实现啊！(50分)

http://www.delphibbs.com/keylife/iblog_show.asp?xid=386
按照该实例做，怎么也做不了呢，问题是
第四步, 在数据模块中新增一个方法,让用户可以通过该方法获取IUserList接口.也是先回到
Type Library Editor,在IUserMgr接口下新增一个GetUserList方法.刷新后写上以下实现代码:
function TUserMgr.GetUserList: IUserList;
begin
_AddRef;
Result:=TUserList.Create(Self, Self as IUnknown);
_Release;
end;

怎么增加接口GetUserList返回IuserList（接口）啊，我只能返回variant*类型的。
请指教！