Source position: pparser.pp line 290
type TPasParserErrorHandler = procedure(
Sender: TObject;
const aContext: TRecoveryContext;
var aAllowRecovery: Boolean
) of object;