Покажите пример добавления произвольному классу поддержки IInterface: например, для TList или TThread, TListBox

Покажите пример добавления произвольному классу поддержки IInterface: например, для TList или TThread, TListBox. Я всегда делал это через делегирование новому TInterfacedObject, в котором одно из полей - мой класс, но это меня изрядно замотало в клубок. Просто, я смотрю на TInterfacedObject и не могу понять, нужно ли всё оттуда скопировать, чтобы все нормально работало

 
 type 
IList = interface
  procedure Method1;
  procedure Method2;
end;
TMyListBox = class(TListBox,IList)
  
  procedure Method1;
  procedure Method2;
  ??? ну так не работает addref нужен и еще что то

end;