TCPClient/TCPServer (sockets)

Alguma alma caridosa possui um bom exemplo de uma aplicação simples (transferência de arquivos texto entre cliente/servidores, por exemplo) utilizando-se os componentes TCPClient e TCPServer (não Indy), com timeouts para conexão ou perda de comunicação?
Obrigado.