DoPopup perform the popup method
Source position: menus.pp line 400
protected procedure TPopupMenu.DoPopup(
Sender: TObject
); virtual;