很菜的问题，关于客户机和服务器之间简单通信(40分)

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.socket.sendtext('hello');
ServerSocket1.socket.receivetext(s:string);
edit1.text:=s;
end;
我想实现：客户机发送‘hello’，服务器收到并在edit1.text中显示；
请高手指点，着急啊！
40分，不成敬意！

拜托，有没有高手指点小弟一下，我真的遇到麻烦了

我是truecat，我发给你的例题看懂了吧？应该能解决的你的问题了。

多谢truecat的悉心指导，至为感谢，
你有it精英的锐利，更有大侠的风度
谢谢truecat大哥

client:///客户端发送消息
^^^^^^^
procedure TFormclient.Button1Click(Sender: TObject);
begin
clientsocket1.socket.sendtext('hello');
end;


server: //服务器端接收
^^^^^^^
procedure TFrmServer.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Edit1.text:=Socket.ReceiveText ; //将发到的 hello 显示在 Edit 中
end;