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