ServerSocket怎么直接向ClientSocket发信息

ServerSocket如何直接向ClientSocket发信息
谢谢大家啊，指点，现在就是， ClientSocke 链接上以后，直接向ClientSocke 发送消息。
   


 小弟初学啊，谢谢大家指教啊。
   

  rocedure TForm1.FormCreate(Sender: TObject);
begin
  serversocket1.Active:=true;

end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  showmessage('有请求');
end;

procedure TForm1.Button1Click(Sender: TObject);

begin

serversocket1.Socket.SendText('123');
end;

 不知道怎么套接字符 ~~，谢谢指教啊。

[解决办法]

Delphi(Pascal) code

var  i : integer;begin  for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do begin    ServerSocket1.Socket.Connections[i].SendText('Hellow');  end;end;