Перехват IUnknown:Release (?)

[Johnson]

Здравствуйте, уважаемые.

Скажите, как правильно осуществить хук метода IUnknown::Release?

Пытался перехватить как любой другой метод интерфейса - не получается.
Скорее всего дело в неправильных аргументах.

Вызов хука:

HookCode(GetInterfaceMethod(Device, 2),  @ReleaseCallback,         @ReleaseNext);

Процедуры:

ReleaseNext:          function (self:Pointer): Integer; stdcall;

function ReleaseCallback(self: Pointer):Integer; stdcall;
begin
  //LogoFont._Release;
  Result := ReleaseNext(self);
end;

Делал по аналогии с другими методами.

Подскажите, где ошибка?

[Johnson]

Мнений нет?.. =(