anchor.diff:        Inc(FBuffer.Run);
       end;
     case FTokenID of
  +    PtBorComment:
  +      begin
  +        if Assigned(FOnComment) then
  +        begin
  +          SetString(CommentText, PChar(@FBuffer.Buf[BeginRun]), FBuffer.Run - BeginRun - 1);
  +          FOnComment(Self, CommentText);
  +        end;
  +      end;
       PtCompDirect:
         begin
           if Assigned(FOnCompDirect) then
  
positive.code:       FCommentState := csBor;
      end;
    end;
    Inc(FBuffer.Run);
    while FBuffer.Buf[FBuffer.Run] <> #0 do
      case FBuffer.Buf[FBuffer.Run] of
        '}':
  
negative.code:       end;
    end;
  
    BeginRun := FBuffer.Run + 1;
  
    while FBuffer.Buf[FBuffer.Run] <> #0 do
      case FBuffer.Buf[FBuffer.Run] of
  