function Utf8CharacterToUnicode(p: PChar; out CharLen: integer): Cardinal;
begin
if p<>nil then
  begin

  if Ord(p^)<192 then
    begin
  Result:=Ord(p^);
  CharLen:=1;
    end
  else
  if ((Ord(p^) and 224)=192) then
    begin

    if (Ord(p[1]) and 192)=128 then
      begin
    Result:=((Ord(p^) and 31) shl 6) or (Ord(p[1]) and 63);
    CharLen:=2;
      end
    else
      begin
    Result:=Ord(p^);
    CharLen:=1;
      end;

    end
  else
  if ((Ord(p^) and 240)=224) then
    begin

    if ((Ord(p[1]) and 192)=128) and ((Ord(p[2]) and 192)=128) then
      begin
    Result:=((Ord(p^) and 31) shl 12) or ((Ord(p[1]) and 63) shl 6) or (Ord(p[2]) and 63);
    CharLen:=3;
      end
    else
      begin
    Result:=Ord(p^);
    CharLen:=1;
      end;

    end
  else
  if ((Ord(p^) and 248)=240) then
    begin

    if ((Ord(p[1]) and 192)=128) and ((Ord(p[2]) and 192)=128) and ((Ord(p[3]) and 192)=128) then
      begin
    Result:=((Ord(p^) and 31) shl 18) or ((Ord(p[1]) and 63) shl 12) or ((Ord(p[2]) and 63) shl 6) or (Ord(p[3]) and 63);
    CharLen:=4;
      end
    else
      begin
    Result:=Ord(p^);
    CharLen:=1;
      end;

    end
  else
    begin
  Result:=Ord(p^);
  CharLen:=1;
    end;
  end
else
  begin
Result:=0;
CharLen:=0;
  end;
end;

function UTF8CharacterToUnicode(p: PChar; out CharLen: integer): Cardinal;
{ if p=nil then CharLen=0 otherwise CharLen>0
  If there is an encoding error the Result is 0 and CharLen=1.
  Use UTF8FixBroken to fix UTF-8 encoding.
  It does not check if the codepoint is defined in the Unicode tables.
}
begin
  if p<>nil then begin
    if ord(p^)<%11000000 then begin
      // regular single byte character (#0 is a normal char, this is pascal ;)
      Result:=ord(p^);
      CharLen:=1;
    end
    else if ((ord(p^) and %11100000) = %11000000) then begin
      // starts with %110 => could be double byte character
      if (ord(p[1]) and %11000000) = %10000000 then begin
        CharLen:=2;
        Result:=((ord(p^) and %00011111) shl 6) or (ord(p[1]) and %00111111);
        if Result<(1 shl 7) then begin
          // wrong encoded, could be an XSS attack
          Result:=0;
        end;
      end else begin
        Result:=ord(p^);
        CharLen:=1;
      end;
    end
    else if ((ord(p^) and %11110000) = %11100000) then begin
      // starts with %1110 => could be triple byte character
      if ((ord(p[1]) and %11000000) = %10000000)
      and ((ord(p[2]) and %11000000) = %10000000) then begin
        CharLen:=3;
        Result:=((ord(p^) and %00011111) shl 12)
                or ((ord(p[1]) and %00111111) shl 6)
                or (ord(p[2]) and %00111111);
        if Result<(1 shl 11) then begin
          // wrong encoded, could be an XSS attack
          Result:=0;
        end;
      end else begin
        Result:=ord(p^);
        CharLen:=1;
      end;
    end
    else if ((ord(p^) and %11111000) = %11110000) then begin
      // starts with %11110 => could be 4 byte character
      if ((ord(p[1]) and %11000000) = %10000000)
      and ((ord(p[2]) and %11000000) = %10000000)
      and ((ord(p[3]) and %11000000) = %10000000) then begin
        CharLen:=4;
        Result:=((ord(p^) and %00001111) shl 18)
                or ((ord(p[1]) and %00111111) shl 12)
                or ((ord(p[2]) and %00111111) shl 6)
                or (ord(p[3]) and %00111111);
        if Result<(1 shl 16) then begin
          // wrong encoded, could be an XSS attack
          Result:=0;
        end;
      end else begin
        Result:=ord(p^);
        CharLen:=1;
      end;
    end
    else begin
      // invalid character
      Result:=ord(p^);
      CharLen:=1;
    end;
  end else begin
    Result:=0;
    CharLen:=0;
  end;
end;