DELPHI中简单把汉字转换成ASCII码的方法

偶然获得一个DELPHI中简单的把汉字转换成ASCII码的方法
var
   ustr:    WideString; //
ustrDate()=ustr;
 for   i   :=   1   to   Length(ustr)   do
      strResult   :=  strResult   +   IntTohex(Ord(ustr[i]),4);

事实上就是利用WIDESTRING支持UNICODE。