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