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