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