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