[Delfino]

En los eventos OnExecute y OnDisconnect tienes el parametro AContext, q significa el cliente q genera el evento :

Código Delphi [-]
AContext.Connection.IOHandler.WriteLn('xxx');

Para iterar sobre todos los clientes debe hacer algo asi :

Código Delphi [-]
 Clientes := TCP.Contexts.LockList;
 try
  for I := 0 to Clientes.Count - 1 do
   begin
     // ..
   end;
  finally
   TCP.Contexts.UnlockList;
  end;