PopUpMenu: Den Sender ermitteln

[BetaBot]

Guten Abend Delphi - Gemeinde,

falls mein Problem so simpel zu lösen ist, vorweg: Ich habe wirklich nach einer Lösung gesucht, komme aber gerade nicht weiter. Hier das Problem: Ich habe eine ListBox und ein Memo zum selben PopUpMenu verlinkt. Dieses Menu hat zwei Items 'größer' und 'kleiner' und je nach Wahl, sollen diese die Schrift vergrößern oder verkleinern. Im OnClickEreignis für das Item 'größer' steht folgendes:
If Sender is TMemo then (Sender as TMemo).Font.Size := (Sender as TMemo).Font.Size + 2; Der Code wird anstandslos compiliert, aber zur Laufzeit passiert bei OnClick in der Memokomponente nichts. Meine Vermutung: Das Memo ist im OnClickEreignis des PopUpItems gar nicht mehr der Sender.
Ich hoffe, ihr könnt mir helfen und mir möglichst einen Weg weisen, um dieses PopUpMenu auch für andere Komponenten nutzbar zu machen.

Danke bis hierher,

BetaBot