Source position: sax.pp line 143
type TProcessingInstructionEvent = procedure(
Sender: TObject;
const Target: SAXString;
const Data: SAXString
) of object;