añadido PTcpUpcase