Source position: msecommutils.pas line 22
type getcommnreventty = procedure(
const sender: tobject;
var avalue: commnrty
) of object;