Ich sagte doch "
nicht interfaces mit Objekten mischen"
Objekte = keine Referenzzählung
Interfaces = ja
TTemperaturAnzeigen ist das Objekt und wird demnach nicht mitgezählt.
hier gibt es also nur 2-3 Lösungen:
- entweder du meldest beim Interface (._AddRef) diese Referenz an
- oder besser, du nimmst hier auch statt TTemperaturAnzeigen das IBeobachter.
- oder du umgehst die Referenzzählung (siehe #7 Uwe Raabe, bzw. implementierst dir eine eigene "Referenzzählung", welche auf deine Bedürfnisse abgestimmt ist)