delphi tcp客户端以utf8发送字符串

delphi中建立TIdTCPClient客户端，然后Client.Write(s)，s中包含汉字;
服务端以utf8读取会出现乱码。请问怎么将s转化为utf8发过去。