为TAutoObjectFactory添加新的接口(100分)

我写了如下代码
TMyComObjectFactory= class(TComObjectFactory, ISomeInterface)
....
end;

initialization
TMyComObjectFactory.Create(.....
end.

当我在客户端程序中访问该接口时
OleCheck(CoGetClassObject(CLASS_TestClassFactory, CLSCTX_LOCAL_SERVER, nil,
IID_ISomeInterface, pfc));
产生异常说不支持该接口。

我是在弄不明白了，按道理讲应该是可以的，还望请教个位了

我写了如下代码
TMyComObjectFactory= class(TComObjectFactory, ISomeInterface)
....
end;

initialization
TMyComObjectFactory.Create(.....
end.

当我在客户端程序中访问该接口时
OleCheck(CoGetClassObject(CLASS_TestClassFactory, CLSCTX_LOCAL_SERVER, nil,
IID_ISomeInterface, pfc));
产生异常说不支持该接口。

我是在弄不明白了，按道理讲应该是可以的，还望请教各位了