Source position: msegui.pas line 2747
type winideventty = procedure(
const awinid: winidty
) of object;