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