Source position: menus.pp line 361
protected procedure TPopupMenu.DoPopup(
Sender: TObject
); virtual;