Source position: fpcssscanner.pp line 128
type TCSSScannerWarnEvent = procedure(
Sender: TObject;
Msg: string
) of object;