Delphi 如何通过接口方法的DispID获取方法名称?

VC区也发一个
最近研究了Delphi RTTI 
想要实现一个类似TAutoObject功能的类 
经过以下试验分析 
Delphi 的双重接口的调用模式大致如下 
  //接口
  ITest = interface(IDispatch)
  ['{C8E5E6FF-FBF2-4397-A4F3-8041DF9548E8}']
    function Test: Boolean; stdcall;
  end;
  {$m-}{$METHODINFO OFF}
  //disp接口
  ITestDisp = dispinterface
  ['{C8E5E6FF-FBF2-4397-A4F3-8041DF9548E8}']
    function Test: Boolean; dispid 500;
  end;
  TTest = class(TInterfacedObject, ITest, IDispatch)
  protected
    function Test: Boolean; stdcall;
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
  end;//以下是调用
var
  I: ITest;
  Disp: ITestDisp;
  V: Variant;
begin
  //用非disp接口调用, 直接执行到 Test 方法内部
  I := TTest.Create;
  I.Test;
  //用dips接口调用,执行到Invoke,再由 Invoke 执行其它方法
  Disp := TTest.Create as ITestDisp;
  Disp.Test;
  //用Variant调用,首先执行到 GetIDsOfNames 获取方法ID,然后再执行到 Invoke 再由 Invoke 执行其它方法
  V := TTest.Create as ITestDisp;
  V.Test;
end;
我想要的效果正是类似DispID的效果, 既只要有接口就可以调用, 避免传错参数或调错方法, 
然而我发现当执行到 Invoke 时传来的只是方法的DispID 
于是我无从下手了,不知道该如何把DispID解释成方法名或方法地址,于是无法进行调用实际想调用的方法 跟据我的实验,用Variant的方式,只要在其调用GetIDsOfNames时生成一个模拟的DispID, 
这个DispID便可以由Invoke获取了,然而这个DispID却不是接口声明时的DispID,于是 
用disp接口仍然无法获取方法地址. 我跟踪过TAutoObject的调用，他的调用是通过工厂类直接执行，然而一直跟踪下去才发现他是调用了Ole32 API，而这个API 
是需要IDL Table支持的，即一定要是COM或COM+才能获取到。 用Variant调用的方式确实能满足我的需要,但其不能直接使用接口调用,传错参数也能编译通过,并且效比较低, 
首先要执行 GetIDsOfNames获取方法ID,再进行调用。 经过跟踪调试发现,只要引用了ComObj单元,Disp接口调用时，都会调用到ComObj的DispCallByIDProc函数指针，该指针指向 
DispCallByID 函数，通过修改这个函数的指针，指向自己的DispCallByID,由DispCallByID转向Invoke以外的另一个方法把 
方法名传过去，也能达到我想要的效果，但是这样做是修改了Delphi内部的调用机制，比起 
这种方法，我更倾向于使用原有的机制，如果通过通过DispID获取到方法地址那才是最佳解决案。