Bin mir jetzt nciht ganz sicher aber es müsste so funktionieren
Delphi-Quellcode:
procedure OnButton1Click(Sender: TObject);
var i: Integer;
begin
for i := 0 to ServerSocket1.ActiveConnections do
ServerSocket1.Connections[i].SendText('Dei Text');
end;