quitado algunas variables que no se usaban y renombreado chat_peer.adb por chat_peer_2.adb