Source position: actnlist.pas line 74
type TActionEvent = procedure(
AAction: TBasicAction;
var Handled: Boolean
) of object;