anchor.diff:    c: char;
   begin
     count := 0;
  -  for i := 0 to value.length - 1 do
  +  for i := 0 to Length(value) - 1 do
     begin
       c := value[1 + i];
       if (c = ' ') and (allowSpaces) then
  
positive.code:     pos := TUtils.skipSpaces(s, pos);
      if (pos < start) then
      begin
        if linkRefs.TryGetValue(name.ToLower, lr) then
        begin
          isAbbrev := lr.isAbbrev;
          link := lr.link;
  
negative.code:       begin
          FConfig.decorator.openLink(out_);
          out_.append(' href="');
          TUtils.appendValue(out_, link, 0, Length(link));
          out_.append('"');
          if (comment <> '') then
          begin
            out_.append(' title="');
            TUtils.appendValue(out_, comment, 0, Length(comment));
            out_.append('"');
          end;
          out_.append('>');
  