procedure Popup(X: Integer; Y: Integer); override;

This is Popup, a member of class TTntPopupMenu.