TServerSocket User auslesen und an Client übergeben

[MSSSSM]

Bin ich dämlich...

Delphi-Quellcode:

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