Método COM compensaciones en Delphi

En Delphi, ¿cómo puedo encontrar la dirección de un método COM? Puedo codificar las compensaciones

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

pero preferiría usar nombres simbólicos. Lo siguiente obviamente no funciona:

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

¡Gracias!

Respuestas a la pregunta(0)

Su respuesta a la pregunta