Problema con sockets

[modulay]

Tengo una aplicación para enviar strings entre dos ordenadores(un sobremesa y un portátil,los dos bajo xp) que tengo conectados en red a través de un switch,usando las ip's públicas.El problema es que el flujo de datos en una dirección funciona perfectamente,pero en la otra no consigo que salga un solo bit.El portátil deja que le lleguen los datos sin problema,pero cuando intento que sea él quien envíe algo,ó se queda medio colgado ó me tira error.
Cuando pruebo con el netchat que trae de ejemplo delphi 7 y que usa los TcpClient y TcpServer,el portátil recibe sin problema,pero al intentar enviar se queda un rato colgado y no hace nada.
Probando con los socket de scktComp sólo consigo establecer conexión si el portátil actúa de servidor,porque de cliente tira el error 10060 al intentar conectar.Ni siquiera actuando como servidor va bien,porque recibe sin problemas,pero al intentar enviar algo al cliente tira error diciendo que no está conectado y no pudo obtener dirección.
Posiblemente tenga algo que ver el hecho de que desde el ordenador de sobremesa puedo acceder al portátil a través de la red,pero sin embargo al contrario no me deja ni por asomo.
¿alguna sugerencia?
Gracias