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