Delphi - Sigue Problema con Sockets

Hola
tengo un proiblema con sockets cliente servidor..

cuando envio algo ya sea del cliente al servidor o viceversa, tengo que hacer dos envios si no no responde, es decir..

hice esto

1. conecte el socket cliente al servidor
2. por medio de un boton envio un texto de la siguiente manera
socket.sendtext('Texto');
3. el servidor no recibe nada

para que el servidor reciba algo necesito presionar sobre el boton de enviar dos veces

alguien sabe como arreglar esto?

estoy usando los componentes de sockets de delphi

saludos y gracias

es un error raro y seguro q se debe a algun error de codigo, por ejemplo abrir el socket servidor o cliente en el mismo procedimiento donde se envnia el texto, o alguna iterrupcion con otro trozo de codigo, verificalo todo bien pq yo hice un programa con socket y no me paso esto en ningun momento, te recomiendo q en vez de los antiguos controles de socket utilices los nuevos TcpClient y TcpServer q son cross platafomra..

Oye.. Me podrias decir donde puedo encontrar algun ejemplo de como usar los componenetes de TTcpServer y TTcpClient.. por que ahora.. el ciente ya envia bien a el servidor, pero el servidor no puedo hacer que envie la respuesta al cliente.

Saludos.