-   
-   
- void __fastcall TForm1::ClientSocket1Error(TObject *Sender, 
-       TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode) 
- { 
-     switch(ErrorCode) 
-     { 
-         case (10013): 
-             ShowMessage("Permiso denegado.\n" 
-                         "Se ha echo un intento de acceder a un socket de una \n" 
-                         "manera prohibida"); 
-             break; 
-         case (10048): 
-             ShowMessage("Dirección en uso.\n" 
-                         "Solo un uso de cada dirección de socket \n" 
-                         "(protocolo/dirección IP/puerto) es permitido habitualmente."); 
-             break; 
-         case (10049): 
-             ShowMessage("No se puede asignar la dirección requerida.\n" 
-                         "La dirección requerida no es válida en su contexto. "); 
-             break; 
-         case (10047): 
-             ShowMessage("La familia de la dirección es \n" 
-                         "incompatible con el protocolo."); 
-             break; 
-         case (10037): 
-             ShowMessage("Operación aún en progreso.\n" 
-                         "Se ha intentado una operación sobre un socket \n" 
-                         "no bloqueante que ya mantiene una operación en progreso."); 
-             break; 
-         case (10053): 
-             ShowMessage("Conexión abortada.\n" 
-                         "EL software ha causado el cierre de la conexión. "); 
-             break; 
-         case (10061): 
-             ShowMessage("Conexión rechazada.\n" 
-                         "No se puede crear una conexión porque la \n" 
-                         "máquina a la que se ha echo la petición la \n" 
-                         "ha rechazado activamente."); 
-             break; 
-         case (10054): 
-             ShowMessage("Conexión reiniciada por el peer.\n" 
-                         "Una conexión existente ha sido cerrada\n" 
-                         "por el host remoto. "); 
-             break; 
-         case (10039): 
-             ShowMessage("Se requiere dirección de destino.\n" 
-                         "una dirección requerida ha sido omitida\n" 
-                         "en una operación del socket. "); 
-             break; 
-         case (10014): 
-             ShowMessage("Dirección erronea.\n" 
-                         "El sistema a detectado una dirección\n" 
-                         "de puntero inválido al intentar usar \n" 
-                         "un argumento puntero de una llamada. "); 
-             break; 
-         case (10064): 
-             ShowMessage("El host está apagado.\n" 
-                         "Una operación con sockets ha fallado \n" 
-                         "porque el host de destino estaba apagado. "); 
-             break; 
-         case (10065): 
-             ShowMessage("No route to host.\n" 
-                         "Se ha tratado de conectar a un host\n" 
-                         "inalcanzable. "); 
-             break; 
-         case (10036): 
-             ShowMessage("Operación en marcha.\n" 
-                         "Una operación bloqueante está en\n" 
-                         "ejecución en este momento. "); 
-             break; 
-         case (10004): 
-             ShowMessage("Se ha llamado a la función de interrupción."); 
-             break; 
-         case (10022): 
-             ShowMessage("Argumento inválido.\n" 
-                         "Se ha pasado un argumento inválido "); 
-             break; 
-         case (10056): 
-             ShowMessage("El socket ya está conectado.\n" 
-                         "Se ha requerido una conexión en un socket \n" 
-                         "ya conectado. "); 
-             break; 
-         case (10024): 
-             ShowMessage("Demasiados archivos abiertos."); 
-             break; 
-         case (10040): 
-             ShowMessage("Mensaje muy largo."); 
-             break; 
-         case (10050): 
-             ShowMessage("La red esta desconectada."); 
-             break; 
-         case (10052): 
-             ShowMessage("La red abandonó la conexión al reiniciar."); 
-             break; 
-         case (10051): 
-             ShowMessage("La red es inalcanzable."); 
-             break; 
-         case (10055): 
-             ShowMessage("No hay espacio de buffer disponible."); 
-             break; 
-         case (10042): 
-             ShowMessage("Mala opción del protocolo."); 
-             break; 
-         case (10057): 
-             ShowMessage("El socket no esta conectado."); 
-             break; 
-         case (10038): 
-             ShowMessage("Operación con sockets sobre un no-socket."); 
-             break; 
-         case (10045): 
-             ShowMessage("Operación no soportada."); 
-             break; 
-         case (10046): 
-             ShowMessage("Familia de protocolos no soportada."); 
-             break; 
-         case (10067): 
-             ShowMessage("Demasiados procesos"); 
-             break; 
-         case (10043): 
-             ShowMessage("Protocolo no soportado."); 
-             break; 
-         case (10041): 
-             ShowMessage("Tipo erroneo de protocolo para el socket."); 
-             break; 
-         case (10058): 
-             ShowMessage("No puede enviarse despues de cerrar el socket."); 
-             break; 
-         case (10044): 
-             ShowMessage("Tipo de socket no soportado."); 
-             break; 
-         case (10060): 
-             ShowMessage("Timeout de conexión."); 
-             break; 
-         case (10109): 
-             ShowMessage("Tipo de clase no encontrado."); 
-             break; 
-         case (10035): 
-             ShowMessage("Recurso no disponible temporalmente."); 
-             break; 
-         case (11001): 
-             ShowMessage("No se ha encontrado el host."); 
-             break; 
-         default: 
-             ShowMessage("Error No registrado"); 
-     } 
-     ErrorCode = 0; 
- } 
-   
-   
-