Source position: classesh.inc line 2636
type TActionEvent = procedure(
Action: TBasicAction;
var Handled: Boolean
) of object;