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