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