Source position: xmlreader.inc line 94
type xmlTextReaderErrorFunc = procedure(
arg: pointer;
msg: PAnsiChar;
severity: xmlParserSeverities;
locator: xmlTextReaderLocatorPtr
);