Ayuda con cliente/servidor (sockets)

[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..

[vejerf]

Hola, tras un tiempo estoy recuperando una cosilla que dejé planteada por motivos de trabajo. Ahora necesito recuperar esto. La cosa es que quiero comunicarme con un servidor (q tb estoy implementando) y que el servidor pueda enviar comandos al cliente tb. Para ello veo que se puede usar el componente TIdCmdTCPClient, pero no sé como usarlo. Alguien tiene un ejemplo simple de lectura de comandos por parte del cliente o sabe donde encontrarlo? He buscado ejemplos de las Indy, pero no teng de este componente.
Gracias!!!