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