Source position: mclasses.pas line 500
type seterroreventty = procedure(
const reader: treader;
const atype: ptypeinfo;
const aitemname: string;
var avalue: Integer
) of object;