socket如何建立连接？ 我是菜鸟，请咄咄指教啊(50分)

要建立一个clientsocket和serversocket连接的程序，然后发送字符串，接受字符串

设置serversocket的port，active ：= true;使serversocket处于监听状态，此时可以随时
接受clientsocket的连接请求，设置clientsocket的port和adress（serversocket所在的ip），
acitve：= true，连接serversocket。
发送和接收字符可以利用控件提供的函数。

begin
ServerSocket:=TServerSocket.Create(self) ;
ClientSocket:=TClientSocket.Create(self);
StrTemps := StrSeverID + StrDate + StrReNum;
StrLocalStr := StrTemps;
Isserver:=false;

ServerSocket.Active :=true;
ServerSocket.Port:=1024;
ClientSocket.Host := '10.8.2.97';
ClientSocket.Address := '10.8.2.97';
ClientSocket.Port:=1024;
CreatConnection;
ClientSocket.Socket.SendText(StrLocalStr);

{传送本地字符串StrLocalStr}
if Isserver=true then
begin
ClientSocket.Socket.SendText(StrLocalStr);
StrLocalStr:=ClientSocket.Socket.ReceiveText;
end;

{得到返回字符串GetStrWhole}
result := ClientSocket.Socket.ReceiveText;
ClientSocket.Close;
end;

上面的程序对不对啊！我比较若啊

接收信息要在接收事件中完成！！！

D6中有范例。见C:/Program Files/Borland/Delphi6/Demos/Internet/Chat,我也是刚刚有人发给我的。