Source position: xmltextreader.pp line 91
type TEntityEvent = procedure(
Sender: TXMLTextReader;
AEntity: TEntityDecl
) of object;