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