Delphi-PRAXiS - Delphi Methoden aus TInterfacedObject, aber TIO nicht Vorfahr?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Methoden aus TInterfacedObject, aber TIO nicht Vorfahr? (https://www.delphipraxis.net/58135-methoden-aus-tinterfacedobject-aber-tio-nicht-vorfahr.html)

Methoden aus TInterfacedObject, aber TIO nicht Vorfahr?

Hi,

ich brauche ein eigenes TListItem, das über ein Interface mitgeteilt bekommt, wenn sich an seinen Daten bestimmte Änderungen ergeben haben. Das ist ja mittels

Delphi-Quellcode:

type TObservingListItem = class(TListItem, IObserver)

kein Problem. Jetzt müsste ich aber ja die Methoden _AddRef, _QueryInterface und _Release neu implementieren. Kann ich dazu irgendwie auf die von TInterfacedObject zurückgreifen (z.B. mittels des implements Schlüsselwortes) oder komm ich hier um Copy/Paste nicht herum?

Schon mal Danke im Voraus
Christian