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