UnicodeToUTF8String问题

function UnicodeToUTF8String(ASource: string): AnsiString; inline;
  begin
  SetLength(Result, 256);
  ZeroMemory(PAnsiChar(Result), 256);
  UnicodeToUtf8(PAnsiChar(Result), PwideChar(ASource), 256);
  end;

请问各位大哥前辈，在delphi xe 环境中，用于得到uft8字符串函数，如果汉字是双子，譬如 中国，得到的是正常的，如果是单字 譬如 中 字得到的就是不正常的。同样的代码 D2007版本正常。

头晕中，，盼望解决。

没用过delphi xe

函数不应该有问题，是不是显示问题呢？可以再调试环境下看看结果！

用现有函数UTF8Encode行了