Кто-нибудь знает какие-либо примеры прокси-приложений для сокетов TCP, написанных на Delphi? Я создаю небольшое приложение-брокер, которому необходимо прослушивать сокет-соединения с заданным портом TCP, читать пакет данных XML, отправленный через соединение, обслуживать запрос через TCP на сервер, выбранный из пула доступных внутренних серверов, и доставить полученный ответ возвращается к исходящему TCP-соединению.
Я очень хорошо знаком с программированием на уровне TCP и сокетов, но предпочел бы найти пример кода в качестве отправной точки. Если что-то будет доступно, это сэкономит немало времени и усилий, так как мне не нужно будет изобретать велосипед. Я помню, как видел небольшой TCP-прокси, написанный на Delphi еще в 2003/2004 годах, но, похоже, потерял связь.