Для работы с MySQL при запуске программы, она пингует MySQL-сервер и проверяет открыт ли порт 3306.
Проверка необходима при инициализации потому, что dbMySQL-компоненты не сообщают о благополучном открытии соединения с базой, только об ошибках. По требованию сисадмина пришлось переписать весь софт за последние лет 8 для экономии одновременно открытых коннектов.

Но после выдачи "1" TCP Disconnect не происходит, соединение висит открытым до закрытия программы. Это критично, когда копии программы работают часами, а сисадмин ограничил количество одновременных коннектов на сервере. Это не страшно, коннекты рубятся по тайм-ауту, но количество клиентов неуклонно растёт, наступит момент, когда очередной клиент не получит соединения. Это эфирная зона телекомпании, надёжность соединений важна.

Может, стоит это исправить?

Когда ошибка явно есть - стоит. Сейчас выложу фикс.

Исправленный hiTCPStat.pas:

Netspirit,
Спасибо большое, работает как надо, проверил.
Наверно стоит в svn.

Netspirit, ну и как на SVN отметить этот фикс ?

TCPStat - fixed error: method doPortIsOpen did not closes connections. Code formatting.

Обновил