anchor.diff:       result[5]:=ansichar(byte($80 or (CharValue and $3f)));
       end;
       $04000000..$7fffffff:begin
  -     SetLength(result,6);
  +     result[0]:=ansichar(byte(6));
        result[1]:=ansichar(byte($fc or ((CharValue shr 30) and $01)));
        result[2]:=ansichar(byte($80 or ((CharValue shr 24) and $3f)));
        result[3]:=ansichar(byte($80 or ((CharValue shr 18) and $3f)));
  
positive.code:   begin
     case CharValue of
      $00000000..$0000007f:begin
       SetLength(result,1);
       result[1]:=ansichar(byte(CharValue));
      end;
      $00000080..$000007ff:begin
       SetLength(result,2);
       result[1]:=ansichar(byte($c0 or ((CharValue shr 6) and $1f)));
       result[2]:=ansichar(byte($80 or (CharValue and $3f)));
      end;
   // {$ifdef PLREStrictUTF8}$00000800..$0000d7ff,$0000e000..$0000ffff{$else}$00000800..$0000ffff{$endif}:begin
      $00000800..$0000ffff:begin
       SetLength(result,3);
       result[1]:=ansichar(byte($e0 or ((CharValue shr 12) and $0f)));
       result[2]:=ansichar(byte($80 or ((CharValue shr 6) and $3f)));
       result[3]:=ansichar(byte($80 or (CharValue and $3f)));
      end;
      $00010000..$0010ffff:begin
       SetLength(result,4);
       result[1]:=ansichar(byte($f0 or ((CharValue shr 18) and $07)));
       result[2]:=ansichar(byte($80 or ((CharValue shr 12) and $3f)));
       result[3]:=ansichar(byte($80 or ((CharValue shr 6) and $3f)));
       result[4]:=ansichar(byte($80 or (CharValue and $3f)));
      end;
      $00200000..$03ffffff:begin
       SetLength(result,5);
       result[1]:=ansichar(byte($f8 or ((CharValue shr 24) and $03)));
       result[2]:=ansichar(byte($80 or ((CharValue shr 18) and $3f)));
       result[3]:=ansichar(byte($80 or ((CharValue shr 12) and $3f)));
  
negative.code:       end;
        StrLo:=ToString(Lo);
        StrHi:=ToString(Hi);
        if byte(ansichar(StrLo[0]))=byte(ansichar(StrHi[0])) then begin
         for i:=1 to byte(ansichar(StrLo[0])) do begin
          AddRange(byte(ansichar(StrLo[i])),byte(ansichar(StrHi[i])));
         end;
         AddSuffix;
        end;
  