Source position: pscanner.pp line 755
type TPScannerWarnEvent = procedure(
Sender: TObject;
Identifier: TPasScannerString;
State: TWarnMsgState;
var Handled: Boolean
) of object;