Source position: msegui.pas line 1704
type widgeteventty = procedure(
const sender: tobject;
const awidget: twidget
) of object;