Source position: mclasses.pas line 363
type TReaderError = procedure(
Reader: treader;
const Message: string;
var Handled: Boolean
) of object;