anchor.diff:      procedure DisposeBuffer(Buf: PBufferRec);
       function GetFileName: string;
       procedure UpdateScopedEnums;
  +    procedure DoOnComment(const CommentText: string);
     protected
       procedure SetOrigin(const NewValue: string); virtual;
     public
  
positive.code:         if Assigned(FOnComment) then
          begin
            SetString(CommentText, PChar(@FBuffer.Buf[BeginRun]), FBuffer.Run - BeginRun - 2);
            FOnComment(Self, CommentText);
          end;
        end;
      PtCompDirect:
  
negative.code:         if Assigned(FOnComment) then
          begin
            SetString(CommentText, PChar(@FBuffer.Buf[BeginRun]), FBuffer.Run - BeginRun - 1);
            DoOnComment(CommentText);
          end;
        end;
      PtCompDirect:
  