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