Source position: msegui.pas line 3093
type windoweventty = procedure(
const awindow: twindow
) of object;