Source position: msewidgets.pas line 847
type popupeventty = procedure(
const sender: tobject;
var amenu: tpopupmenu;
var mouseinfo: mouseeventinfoty
) of object;