Source position: msecolordialog.pas line 29
type setcoloreventty = procedure(
const sender: tobject;
var avalue: colorty;
var accept: Boolean
) of object;