Я сделал новый компонент TCP_ServerEx http://hiasm.hexshock.com/xf/topic.php?p=36371#P36371

Там есть пример Redirect.sha