Да, по идее, закрытый сокет удалять нужно. Я исправил на SVN, но теперь надо проверять TCP_ServerEx, точнее, теперь не подходит реализация THITCP_Client.Destroy, т.к. сокет нужно удалять только тогда, когда он был создан в THITCP_Client._work_doOpen.
------------ Дoбавленo:

THITCP_Client тоже поправил.