Source position: vtheaderpopup.pas line 45
type TAddHeaderPopupItemEvent = procedure(
const Sender: TBaseVirtualTree;
const Column: TColumnIndex;
var Cmd: TAddPopupItemType
) of object;