TClient/Server Sockets: String an alle Clients gleichzeitig?

[sakura]

Ich habe es nicht getestet, da ich iA mit den Indy-Tools arbeite, aber hier mein Vorschlag

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with TcpServer1.ServerSocketThread.ThreadPool do
    for I := 0 to Pred(Count) do
      with TCustomIpClient(Items[I]) do
        if Connected then
          SendTo(....)
end;

......