Creo que te falta documentacion sobre el tema. Estas mezclando algunos conceptos que deberian ir aparte pero, mientras tanto, te dire que para abrir un puerto simplemente tienes que tener algun programa o servicio "escuchando" en ese puerto, es decir, esperando por conexiones de algun(os) cliente(s).
En delphi, mas facil no puede ser: en la paleta Internet, arrastras un componente ServerSocket, le indicas el puerto que quieres utilizar para que este escuche, y lo activas. Al correr la aplicacion tendras una aplicacion que estara escuchando un puerto, lo cual se traduce a que esta "abierto".
Ahora, de esas instrucciones elementales a lograr lo que quieres (que por cierto no me quedo muy claro), hay un gran paso. Si fueses tan amable en explicarnos con mas detalles, pq en el mensaje anterior sinceramente no es que haya entendido mucho