anchor.diff:          if Assigned(FOnComment) then
           begin
             SetString(CommentText, PChar(@FBuffer.Buf[BeginRun]), FBuffer.Run - BeginRun - 2);
  -          FOnComment(Self, CommentText);
  +          DoOnComment(CommentText);
           end;
         end;
       PtCompDirect:
  
positive.code:   Dispose(Buf);
  end;
  
  procedure TmwBasePasLex.DoProcTable(AChar: Char);
  begin
    if Ord(AChar) <= 127 then
  
negative.code:         if Assigned(FOnComment) then
          begin
            SetString(CommentText, PChar(@FBuffer.Buf[BeginRun]), FBuffer.Run - BeginRun - 1);
            DoOnComment(CommentText);
          end;
        end;
      PtCompDirect:
  