如何获取重载函数的地址

:L :L :L
我有一个类：

TTest = class(TObject)

public

    ｆunction GetSome(a : integer) : integer; overload;

    ｆunction GetSome(s : string) : integer; overload;

end;

可以这样获取第一个重载函数的地址[email]--@TTest.GetS[/email]ome

那么怎么样获取第二个重载函数的地址呢？
请高手指点

直接写@TTest.GetSome怕是难以正确区分，得用类型的方式来区分吧。
也就是分别定义函数类型变量再赋值，再取地址。

“获取第一个重载函数的地址”，能否写个测试例子？