Fórum Socket #375697

Estou fazendo uma aplicação para conversar com outra via socket (delphi). Uma vai ficar ´perguntando´ a outra, ´vc tá aí?´, e a outra aplicação fica respondendo ´estou´.
Uma é client outra server. O server fica ouvindo e qdo receber uma msg eu mostro num memo por ex.
Consigo até conectar do client no server, mas a qdo envio a msg (Cliente.Socket.SendText (EdtMsg.text) ;), dá erro no server (windows socket error ... (10057), on API ´getpeername´. Por favor, alguem tem algum código fonte que simule isso, ou algo que me ajude a resolve o erro?
Obrigado.