Source position: pscanner.pp line 752
type TPScannerDirectiveEvent = procedure(
Sender: TObject;
Directive: TPasScannerString;
Param: TPasScannerString;
var Handled: Boolean
) of object;