Wenn du das Ganze allerdings mit Sockets und ohne UDP machen willst, hätt ich hier was für dich:
Delphi-Quellcode:
For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin
with ServerSocket1.Socket.Connections [I] do //Alle Clients durchgehen
if (Connected) then SendText('wasauchimmerduwillst');
Julian J. Pracht