Source position: sax.pp line 151
type TFatalErrorEvent = procedure(
Sender: TObject;
AException: ESAXParseException
) of object;