Source position: msecommutils.pas line 20
type setcommnreventty = procedure(
const sender: tobject;
var avalue: commnrty;
var accept: Boolean
) of object;