delphi - TInterfacedObject をまだ含んでいないクラス階層にインターフェイスを追加するにはどうすればよいですか?

Question

次の例は、インターフェイスに対してコーディングを開始する方法を示しています。

から

TMyObject = class
  function Add(a, b: integer): integer;
end;

に

IInterface = interface
  ['{BFC7867C-6098-4744-9774-35E0A8FE1A1D}']
  function Add(a, b: integer): integer;
end;

TMyObject = class (TInterfacedObject, IInterface 
  function Add(a, b: integer): integer;
end;

しかし、クラスに祖先がある場合、どうすれば管理できますか? たとえば、 TMyClassDerivedDirectlyFromTObjectSoItsGotNothingInItAtAll としましょう。

TMyObject = class(TMyClassDerivedDirectlyFromTObjectSoItsGotNothingInItAtAll)
    function Add(a, b: integer): integer;
end;