Име на буттон от ActiveControl

Положението е следното имам множество буттони наредени в един PageControl и един единствен компонент TPopupMenu. Всички буттони се връзват към този TPopupMenu след това обаче TPopupMenu има задача да промени CAption на буттон от който е извикан. Т.е. TPopupMenu да знае кой буттон го извикал и след това да му промени каквито параметри сметне за добре!!
За сега работи по един много дървен начин и гледам да го упростя но нещо ми се губи връзката. Не мога да разбера защо след като съм натиснал десен буттон на мишката и ActiveControl е все още на родителя на буттона!
Благодаря предварително.

Ако напраскаш 100 бутона и ги вържеш за едно Popup менщ, слдения код ще ти сменя заглавието точно на бутона, от който си извикал менюто:
(PopupMenu1.PopupComponent as TButton).Caption:='new caption';

чети и дишай по-леко