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