Source position: pscanner.pp line 753
type TPScannerCommentEvent = procedure(
Sender: TObject;
aComment: TPasScannerString
) of object;