[Delfino]

En este caso el cliente tiene q ser un TIdCmdTCPClient:

Código Delphi [-]
  var I: Integer;
      Clients: TList;
begin
 Clients := TCPServer.Contexts.LockList;
 try
 for i := 0 to Clients - 1 do
  TIdContext(Clients[i]).Connection.IOHandler.WriteLn(command);
 finally
  TCPServer.Contexts.UnlockList;
 end;
end;

En los clientes haces uso del evento OnCommand de cada commando creado para el TIdCmdTCPClient..