Source position: pscanner.pp line 756
type TPScannerModeDirective = procedure(
Sender: TObject;
NewMode: TModeSwitch;
Before: Boolean;
var Handled: Boolean
) of object;