PopupMenu dynamisch EventHandler zuweisen - Observer pattern?

[Rabenrecht]

So, neues Problem

Ich möchte das PopupMenu einer Komponente beim öffnen des Popups um einige Menupunkte erweitern. Dies soll unabhängig davon geschehen wie das PopUpMenu geöffnet wurde.

Nun bietet das Vcl PopupMenu ein OnOpen Event. Das wäre ja eigentlich genau das Richtige. Leider gibt es Fälle, in denen ein einfache Zuweisung einer Ereignisbehandlung fehlschlägt.

Delphi-Quellcode:

//In der Komponentendefinition
constructor TMyComp.Create;
begin
  [...]
  PopupMenu.OnOpen := myOnOpenProc;
end;

[...]

//irgendwo in einer Unit, die TMyComp verwendet
procedure Form1.Init;
begin
  FMyComp := TMyComp.Create;
  FMyComp.PopupMenu := anotherPopup;

Zack, schon ist die Ereignisbehandlung weg.

Von anderer Stelle habe ich den Tip erhalten, hier was mit nem Observer Pattern zu machen.
Die Frage ist, wer soll hier was observieren?

Was ich hier im wesentlichen erreichen möchte, ist jedem Popup-Menü, welches der PopupMenu Variable von MyComp gerade zugeteilt ist, die eine gleiche Ereignisbehandlung fürs OnPopup zuzuweisen.

Eine Idee wäre es, den Setter der PopupMenu property zu überschreiben (mein Delphi-Lieblingsthema...). Das ist bisher allerdings daran gescheitert, dass ich es nicht schaffe, den originalen Setter im override-Setter aufzurufen.