找了半天居然这么简单  申明本人使用的是D2010

string编码为 utf-8 byte数组  

buf := BytesOf(UTF8Encode(msg));

 

byte数组转换为  string

 

TEncoding.UTF8.GetString(byts);