IdTCPServer - String an ALLE Clients!

[Holger]

Hi ich will einen Chat schreiben....

dazu hatte ich bisher Sockets benutzt und mit

Delphi-Quellcode:

For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin // Anzahl der Teilnehmer
with ServerSocket1.Socket.Connections [I] do // Auswahl des Teilnehmers
if (Connected) then SendText(Clientname+': '+msg); // Text senden
end;

diesem Quelltext allen verbundenen Clients die versendeten Nachrichten zugewiesen.

Wie kann ich sowas mit Indys umsetzten das ich an alle verbundenen Clients den gleichen String sende und nicht nur an einen ... ?