idTcpClient pode ficar escutando os comandos do idTcpServer?

type
  TReadingThread = class(TThread)
    protected
    FConn: TIdTCPConnection;
    procedure Run; override;//aqui da o erro!
    public
    constructor Create(AConn: TIdTCPConnection); reintroduce;
    end;
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Button1: TButton;
    IdTCPClient: TIdTCPClient;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    SpinEdit1: TSpinEdit;
...

Reader.TerminateAndWaitFor;

if idTcpClient.Connected then
Reader := TReadingThread.Create(IdTCPClient);

idTcpServer.WriteLn(´Conectado com Sucesso!´);

procedure TReadingThread.Execute;
var
  Command: String;
begin
 With fMain do
  begin
  if not IdTCPClient.Connected then Exit;
  repeat
    Command := UpperCase(FConn.ReadLn);
    if Command = ´#NET´ then FConn.WriteLn(´Desconectado do Servidor´)//ShowMessage(´Desconectado do Servidor´)
    else if Command = ´BLOCK´ then FConn.WriteLn(´Executado com sucesso!´)//ShowMessage(´Terminal Bloqueado´)
    else if Command = ´SHUTDOWN´ then FConn.WriteLn(´Executado com sucesso!´)//ShowMessage(´Desligar Terminal´)
    else if Command = ´LIBERA´ then FConn.WriteLn(´Executado com sucesso!´)//ShowMessage(´Terminal Liberado´)
    else if Command = ´REBOOT´ then FConn.WriteLn(´Executado com sucesso!´)//ShowMessage(´Reiniciar Terminal´)
    else if Command = ´TELA´ then FConn.WriteLn(´Executado com sucesso!´)//ShowMessage(´Enviar Tela do Terminal´)
    else if Command = ´#STOP´ then FConn.WriteLn(´Executado com sucesso!´);//ShowMessage(´Parar Tempo´);
    ListBox1.Items.Add(Command);
    Command := ´´;
  until not IdTCPClient.Connected;
  end;
end;

var 
  List: TList; 
  Peer: TIdPeerThread; 
... 
  List := IdTCPServer1.Threads.LockList; //isso bloqueia o servidor! 
  try 
    for I := 0 to List.Count - 1 do begin 
      // List[I] é uma das threads do servidor 
      Peer := TIdPeerThread(List[I]); 
      Peer.Connection.WriteLn(´Oi´); 
    end; 
  finally 
    IdTCPServer1.Threads.UnlockList; 
  end;

// código no servidor
var 
  List: TList; 
  Peer: TIdPeerThread; 
... 
  List := IdTCPServer1.Threads.LockList; 
  try 
    for I := 0 to List.Count - 1 do begin 
      // List[I] é uma das threads do servidor 
      Peer := TIdPeerThread(List[I]); 
      Peer.Connection.WriteLn(´DESLIGAR´); 
      if Peer.Connection.ReadLn(10, 100) <> ´OK´ then begin
        // loga/avisa que não respondeu
      end;
    end; 
  finally 
    IdTCPServer1.Threads.UnlockList; 
  end;

// código no cliente
...
  Comando := IdTCPClient1.ReadLn;
  if Comando = ´DESLIGAR´ then begin
    IdTCPClient1.WriteLn(´OK´);
    //prepara para desligar
  end
...

procedure TfMain.SendAll(wTipo:String);
var
 List : TList;
 Peer : TIdPeerThread;
 I    : Integer;
begin
 List := TCPServer.Threads.LockList;
 try
   for I := 0 to List.Count -1 do
    begin
     Peer := TIdPeerThread(List[i]);
     if wTipo = UpperCase(´:1´) then
      begin
       Peer.Connection.WriteLn(´TELA´)
      end
     else
     if wTipo = UpperCase(´:2´) then
      begin
       Peer.Connection.WriteLn(´STOP´)
      end
     else
     if wTipo = UpperCase(´:3´) then
      begin
       Peer.Connection.WriteLn(´BLOCK´)
      end
     else
     if wTipo = UpperCase(´:4´) then
      begin
       Peer.Connection.WriteLn(´LIBERA´)
      end
     else
     if wTipo = UpperCase(´:5´) then
      begin
       Peer.Connection.WriteLn(´#REBOOT´)
      end
     else
     if wTipo = UpperCase(´:6´) then
      begin
       Peer.Connection.WriteLn(´MSG´)
      end
     else
    end;
 finally
   TCPServer.Threads.UnlockList;
 end;
end;

wEstacao := IdTCPClient.Socket.LocalName +´ - ´+IdTCPClient.Socket.Binding.IP;

procedure TExemplo.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  // AThread.Connection.Socket.Binding.PeerIP = IP do cliente
  // AThread.Connection.Socket.Binding.PeerPort = porta do cliente
end;

procedure TfMain.TCPServerConnect(AThread: TIdPeerThread);
var
  Client  : TSimpleClient;
  Cmd,Msg : String;
begin
  Msg := AThread.Connection.ReadLn();
  Cmd := Trim(Copy(Msg, 0, Pos(´:´, Msg) -1));
  Msg := Trim(Copy(Msg, Pos(´:´, Msg) +1, Length(Msg)));
  if Cmd = ´+´ then
   begin
    AThread.Connection.WriteLn(´;: NOME DA ESTAÇÃO NA REDE: ´+Msg);
    AThread.Connection.WriteLn(´#BLOCK´);
    Client := TSimpleClient.Create;
    Client.Name := Trim(Copy(Msg, 0, Pos(´-´, Msg) -1));
    Client.DNS  := Trim(Copy(Msg, Pos(´-´, Msg) +1, Length(Msg))); ;
    Client.ListLink := lbClients.Items.Count;
    Client.Thread := AThread;
    lbClients.Items.Add(Client.Name+ ´ - ´+Client.DNS);
    AThread.Data := Client;
    Clients.Add(Client);
    lbStatus.Items.Insert(0,UpperCase(Client.Name)+ ´ Conectou agora: ´ + FormatDateTime(´DD/MM/YYYY HH:MM:SS´,Now) );
   end;

SelClient := pclient(Clients.LockList.Items[lbClients.ItemIndex]);