Source position: msegui.pas line 1599
type pointeventty = procedure(
const sender: twidget;
const apoint: pointty
) of object;