怎样修改 ComObj程序单元中的 CreateComObject和CreateRemoteComObject方法可让TDCOMConnection正确地建立M

怎样修改 ComObj程序单元中的 CreateComObject和CreateRemoteComObject方法可让TDCOMConnection正确地建立MTS/COM +组件。(50分)<br />怎样修改 ComObj程序单元中的 CreateComObject和CreateRemoteComObject方法可让TDCOMConnection正确地建立MTS/COM+组件？？
其中我使用了GetObjectContext，判断目前是否是位于MTS/COM+执行环境中，使用GetObjectContext回传的接口，即IObjectContext接口的CreateInstance方法来建立MTS/COM+对象。
CreateComObject的程序如下：
function CreateComObject(const ClassID: TGUID): IUnknown;
begin
if GetObjectContext = nil then
OleCheck(CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, IUnknown, Result));
else
begin
GetObjectContext.CreateInstance(ClassID,IUnknown,Result);
end;
end;
出错信息是不能识别GetObjectContext，请问是不是要引用什么文件才行？如果是要引用什么文件？
这是李维的书Delphi 5.X ADO/MTS/COM+高级程序设计篇中的方法，但是我一直不能成功就是出错，希望高手指导。

要引用MTX单元，另外D5要打补丁，D6按liwei说的可以。

谢谢，现在可以了，能不能问一下，怎样能知道在编译时出现不识别某个方法或类时如何知道需要引用什么文件？
还有，现在，虽然编译通过了，但是已运行客户端时就是会出现提示说是灾难性故障和 invalid data packet我已经都按照书上说的做了，这是为什么呢？补充一下，我用的是delphi 6
多谢你的指导。

谁能回答？50分