关于serversocket发送数据的问题---- 一个MM心头的问题(50分)

多人接受答案了。

procedure Tfrmserver.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var receivetext:string;
i:integer;
begin
receivetext:=socket.receivetext;
//4广播：
for i:=0 to ServerSocket1.Socket.activeconnections - 1 do
begin
ServerSocket1.socket.connections.sendtext(receivetext);
end;
end;