pt 

OnChange (TMenu)

pl 

OnClose (TPopupMenu)

pl 

OnPopup (TPopupMenu)