Text vom Server zum Client verschicken

[Ultimator]

Ich glaub ich hab da noch 'n altes Quelltext-Stück:

Delphi-Quellcode:

For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
   begin 
   with ServerSocket1.Socket.Connections [I] do
  if (Connected) then SendText('Das ist der Text, der so dringend an alle Clients gesendet werden muss');
 end;

Is zwar von einem Server zu mehreren Clients, aber ist ja einfach, das umzuschreiben