Deslocamentos do método COM no Delphi

No Delphi, como descubro o endereço de um método COM? Eu posso codificar as compensações

//0 is the offset of the QueryInterface method
p := TPonterArray(pointer(SomeInterface)^)[0];

mas eu preferiria usar nomes simbólicos. O seguinte obviamente não funciona:

var M : TMethod;
...
M := TMethod(SomeInterface.QueryInterface);

Obrigado!

questionAnswers(0)

yourAnswerToTheQuestion