Component.Free -> auch fremde Zeiger auflösen

[stahli]

Das Problem ist früher schon besprochen worden.
Gibt es inzwischen eine (Delphi-)Löung, die ich noch nicht kenne?

Delphi-Quellcode:

Panel1 := TPanel.Create(Self);
Panel2 := Panel1;
Panel1.Free; // bzw. FreeAndNil(Panel1);
//... irgendwann später
if Assigned(Panel2) then
  Panel2.Caption := 'Exception!!!' // geht natürlich nicht mehr

Ich habe mir mal die Quelle von TObjectList angesehen und sogar fast komplett verstanden, wie das da funktioniert.

Gibt es inzwischen eine Möglichkeit, auch einzelne Komponenten an andere zu binden?
Panel2 soll automatisch auf nil gesetzt werden, wenn Panel1 freigegeben wird.

Ein nützliches Feature wäre das sicher...