anchor.diff:    SetLength(Result, Dest - PChar(Result));
   end;
   
  -function UTF8Length(const s: string): integer;
  +function UTF8Length(const s: string): PtrInt;
   begin
     if s = '' then
       Result := 0
  
positive.code: 
  
  { Returns the character starting position as PChar in the UTF8Str string. }
  function UTF8CharStart(UTF8Str: PChar; Len, Index: integer): PChar;
  var
    CharLen: LongInt;
  begin
  
negative.code:     Result := 0;
  end;
  
  function UTF8CharToUnicode(p: PChar; out CharLen: longint): Cardinal;
  begin
    if p=nil then begin
      Result:=0;
  