Source position: msegui.pas line 3095
type booleaneventty = procedure(
const avalue: Boolean
) of object;