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