Referenzen auf Objekte, die free werden

[drchaos]

Hallo!

Folgende Situation: Ich habe zwei Klassen, eine von beiden hält eine Referenz auf ein Objekt der anderen Klasse.
Zum Beispiel so:

Delphi-Quellcode:

  TIchWerdeBenutzt = class
    constructor Create; overload;
    destructor Destroy; override;
  private
    data: String;
  end;


  TIchBenutze = class
    constructor Create; overload;
    constructor Create(IchWerdeBenutzt: TIchWerdeBenutzt); overload;
    destructor Destroy; override;
  private
    denBenutzeIch: TIchWerdeBenutzt ;
  end;

Angenommen, irgendwo wird mit freeandnil das Objekt, auf das "denBenutzeIch" zeigt, freigegeben; jedoch wird freeandnil NICHT auf "TIchBenutze.denBenutzeIch" angewandt, sondern auf die ursprünglich erzeugte (z.B. globale) Objektvariable.
Dann zeigt das Feld "denBenutzeIch" zwar nicht mehr auf ein gültiges Objekt, ist aber auch nicht nil. (es sollte klar sein, warum?)

Ich möchte aber, dass "denBenutzeIch" auch nil wird. Wie kann ich das erreichen?

Ich denke nun darüber nach, in der Klasse "TIchWerdeBenutzt" eine Liste von allen anderen Objekten zu speichern, die Referenzen darauf halten, um diese informieren zu können, wenn das "TIchWerdeBenutzt" - Objekt freigegeben wird.

Gibt es vielleicht noch eine andere (elegantere, einfachere) Möglichkeit?