Смещения метода COM в Delphi

В Delphi как узнать адрес COM-метода? Я могу жестко закодировать смещения

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

но я бы предпочел использовать символические имена. Следующее очевидно не работает:

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

Спасибо!