delphi 反射的有关问题

delphi 反射的问题
type
  TA = class(TObject)
  s:string;
  procedure FC1;
end;

a = TA.create;

用rtti可以反射出TA类的FC1
rtm := TRttiContext.Create.GetType(TA).GetMethod('FC1');
可以得到TA类FC1的地址 rtm.CodeAddress
但现在我想得到 对象 a 的 FC1地址(a.FC1 的 CodeAddress)
请教高手。


[解决办法]
多少实例，他的普通函数地址都是 一样的
[解决办法]
要是每个实例都一个的话，系统早爆了