Winsock控件接受乱码

[wangxudong]

客户端发送按钮
procedure TForm1.sendClick(Sender: TObject);
var
o_data :OleVariant;
s_str :string;
begin
s_str := edit1.Text;
o_data := s_str;
Winsock1.SendData(o_data);
end;

服务器端：
procedure TForm1.Winsock1DataArrival(Sender: TObject; bytesTotal: Integer);
var
o_data :OleVariant;
begin
Winsock1.GetData(o_data);
edit1.Text := o_data;
end;
可是在edit1中显示出来的是乱码，请各位高手不吝赐教