Source position: controls.pp line 783
type TContextPopupEvent = procedure(
Sender: TObject;
MousePos: TPoint;
var Handled: Boolean
) of object;