anchor.diff:      out_.append('<');
       if (isCloseTag) then
         out_.append('/');
  -    pos := readXMLUntil(out_, s, pos, [' ', '/', '>']);
  -  end;
  -  if (pos = -1) then
  +    position := readXMLUntil(out_, s, position, [' ', '/', '>']);
  +  end;
  +  if (position = -1) then
       exit(-1);
  -  pos := readXMLUntil(out_, s, pos, ['/', '>']);
  -  if (pos = -1) then
  +  position := readXMLUntil(out_, s, position, ['/', '>']);
  +  if (position = -1) then
       exit(-1);
   
  -  if (s[1 + pos] = '/') then
  +  if (s[1 + position] = '/') then
     begin
       out_.append(' /');
  -    pos := readXMLUntil(out_, s, pos + 1, ['>']);
  -    if (pos = -1) then
  +    position := readXMLUntil(out_, s, position + 1, ['>']);
  +    if (position = -1) then
         exit(-1);
     end;
   
  -  if (s[1 + pos] = '>') then
  +  if (s[1 + position] = '>') then
     begin
       out_.append('>');
  -    exit(pos);
  +    exit(position);
     end;
     result := -1;
   end;
  
positive.code:         out_.append('">');
          TUtils.appendMailto(out_, link, 0, Length(link));
          FConfig.decorator.closeLink(out_);
          exit(pos);
        end;
      end;
  
  
negative.code:         break;
      end;
      out_.append(ch);
      inc(position);
    end;
    if position = Length(s) then
      result := -1
    else
      result := position;
  end;
  
  class procedure TUtils.appendCode(out_: TStringBuilder; s: String; start: integer; e: integer);
  