Source position: pscanner.pp line 956
public property TPascalScanner.OnWarnDirective : TPScannerWarnEvent read FOnWarnDirective write FOnWarnDirective;