求助多线程服务器回应。

[hehou]

//服务器线程
procedure TClientThread.ClientExecute;
var
S: WideString;
begin
S := 'yes';
ClientSocket.SendBuf(S[1], Length(S) * 2);
end;

//客户端
procedure send;
var
S: WideString;
begin
CKT.Host := trim(ED_ip.Text);
CKT.ClientType := ctBlocking;
S := 'yes';
Ckt.Socket.SendBuf(S[1], Length(S) * 2);
Ckt.Open;
end;

procedure TForm_client.CktRead(Sender: TObject; Socket: TCustomWinSocket);
var
buf:widestring;
begin
SetLength(buf, Socket.ReceiveLength);
socket.ReceiveBuf(buf[1],Length(buf) * 2);
if buf = 'yes' then
showmessage('成功')
else
showmessage('失败');
end;
////////
为什么客户端总接不到数据？？？？