Source position: mclasses.pas line 497
type enumerroreventty = procedure(
const reader: treader;
const atype: ptypeinfo;
const aenumname: string;
var avalue: LongWord
) of object;