UTF8 转换的有关问题

UTF8 转换的问题
在delphi里 把#24425赋给一个string 会得到一个"彩"字,
#33394 赋给string 会得到一个"色"字.
问题来了,如果反查? 通过一个汉字 得出这个码表位置? UTF8 字符 码表
[解决办法]
如果用delphi 2009 以下的版本，string 是 AnsiString，
例如下面用的是 D7

var
  wStr: WideString;
  pwc: PWideChar;
  i: Integer;
begin
  wStr := '彩色';
  pwc := PWideChar(wStr);
  for i := 0 to lstrlenW(pwc) - 1 do
    ShowMessage(Format('%s=#%d', [AnsiString(wStr[i + 1]), Ord(wStr[i + 1])]));
end;