TServerSocket User auslesen und an Client übergeben

[MSSSSM]

Delphi-Quellcode:

var i:integer;
begin
  if Server.Socket.ActiveConnections > 0 then
  begin
    for i:=0 to Server.Socket.Connections[i].SendText('Hallo an alle!');
  end;
end;

So mache ich es...