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