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