anchor.diff:        exit;
       end;
     end;
  -  if fRange <> rkBlockCom2 then if (readCurr <> #10) and (readCurr = '/') then if (readNext = '*') then
  -  begin
  -    if fRange = rkNone then
  -    begin
  -      while(true) do
  -      begin
  -        if readCurr = #10 then break;
  -        if readNext = #10 then break;
  -        if (readPrev = '*') and (readCurr = '/') then break;
  -      end;
  -      if (readCurr = #10) then
  -        begin
  -          fRange := rkBlockCom1;
  -          if fkComments1 in fFoldKinds then
  -            StartCodeFoldBlock(nil);
  -        end
  -      else readNext;
  -      fTokKind := tkCommt;
  -      exit;
  -    end;
  -  end
  -  else Dec(fTokStop);
   
     // block comments 2
  -  if fRange = rkBlockCom2 then
  -  begin
  -    while(true) do
  -      begin
  -        if readCurr = #10 then break;
  -        if readNext = #10 then break;
  -        if (readPrev = '+') and (readCurr = '/') then break;
  -      end;
  -    if (readCurr = #10) then
  -    begin
  -      fRange := rkBlockCom2;
  -      fTokKind := tkCommt;
  -      exit;
  -    end;
  -    if (readCurr = '/') then
  -    begin
  -      fTokKind := tkCommt;
  -      fRange := rkNone;
  -      readNext;
  -      if fkComments2 in fFoldKinds then
  -        EndCodeFoldBlock;
  -      exit;
  -    end;
  -  end;
  -  if fRange <> rkBlockCom1 then if (readCurr <> #10) and (readCurr = '/') then if (readNext = '+') then
  -  begin
  -    if fRange = rkNone then
  -    begin
  +  if fRange = rkNone then if (readCurr = '/') then if (readNext = '+') then
  +    begin
  +      if (readNext = '+') then fTokKind := tkDDocs
  +        else fTokKind := tkCommt;
         while(true) do
         begin
           if readCurr = #10 then break;
  
positive.code:   fCurrIAttrib.FrameEdges := sfeAround;
    fCurrIAttrib.FrameColor := clGray;
    fCurrIAttrib.Background := cl3dlight;
  
    fCommtAttrib.Style := [fsItalic];
    fKeywdAttrib.Style := [fsBold];
  
negative.code:       // check postfix
        if isStringPostfix(readCurr) then
          readNext;
        exit;
      end;
    end;
  