Source position: msegui.pas line 1597
type painteventty = procedure(
const sender: twidget;
const acanvas: tcanvas
) of object;