使用《DELPHI5.x高级程序设计篇》上的例子出错：跟踪发现mtx.pas中CoGetObjectContextProc(IID_IObjectContext, Result)没有返回结果，导

mtx.pas中function GetObjectContext: IObjectContext;
const
  IID_IObjectContext: TGUID = '{51372AE0-CAE7-11CF-BE81-00AA00A2FA25}';
begin
  LoadMtsProcs;
  if Assigned(CoGetObjectContextProc) then
    CoGetObjectContextProc(IID_IObjectContext, Result)
//该句执行后Result仍旧为NIL  else if Assigned(GetObjectContextProc) then
    OleCheck(GetObjectContextProc(Result))
  else
    Result := nil;
end;