[m@kio]

Pues sigo teniendo problemas con esto, kiero mandar mensajes del Servidor al Cliente, para actualizar información, ya habia posteado antes sobre esto, me dieron un respuesta en C++ Builder, pero ya la intente pasar a Delphi, todo iba bien hasta k me encontre con TIdPeerThread, esta no viene en las indy 10, las 9 las manejaba pero ahora es con TIdContext y no pude hacer eso, este el codigo que me postearon:

     bool Enviar_CNT(AnsiString IP,AnsiString Mensaje)
      {
        bool Envio = false;
        int Cont;
      
        TList *Listado = new TList();
        Listado = IdTCPServer1->Threads->LockList();
        TIdPeerThread* Temp;
        try
        {
          for (Cont = 0; Cont < Listado->Count; Cont++)
          {
   //Esta Linea es la que no se como cambiarla a delphi por lo del TIdPeerThread
            Temp = (TIdPeerThread*)Listado->Items[Cont]; 
  //--------------------------------------------------------------
 if (Temp->Connection->Socket->Binding->PeerIP == IP)
            {
              Temp->Connection->Write(Mensaje);
              Envio = true;
              break;
            }
          }
        }
        __except(1)
        {
          Temp->Stop();
          IdTCPServer1->Threads->UnlockList();
        }
        IdTCPServer1->Threads->UnlockList();
        return Envio;
      }

Espero k me puedan ayudar, ya sea ayudandome a cambiar esta linea a Delphi o si me pueden decir otra forma de hacerlo.