Про "статические примеси" с "call-back" к "реализатору" примеси

Есть примесь:

MyMixIn = class
 procedure MyProcedure;
 var
  someData : Boolean;
 begin
  someData := _Instance_R_(Self).getData;
 end;
end;

И есть ИНСТАНЦИРОВАНИЕ:

MyClass = class(MyMixIn)
 function getData : Boolean;
end;

_Instance_R_ = MyClass;

"Виртуальность" БЕЗ виртуальности. Идея понятна?