Разовью тему

http://18delphi.blogspot.com/2013/10/vs.html

PmyString = protocol
 function GetValue: String;
end;

TmyObject1 = class(TmyParent1, PmyString)
 function GetValue: String;
 begin
  Result := ClassName;
 end;
end;

TmyObject2 = class(TmyParent2, PmyString)
 function GetValue: String;
 begin
  Result := ClassName;
 end;
end;

Понятно, что тут ПОДСЧЁТ ссылок - НЕ НУЖЕН?

P.S. Понятное дело, что "протоколы" (в отличии от интерфейсов) "границы сред" пересекть не могут. Да и НЕЗАЧЕМ им это. Не для этого они.