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