Source position: comctrls.pp line 838
type TLVColumnRClickEvent = procedure(
Sender: TObject;
Column: TListColumn;
Point: TPoint
) of object;