Объясните (если можно с примером), как написать тонель?


Нужно организовать тонель, т.ч. на вход передавалось бы сообщение (сгенеренное левой программой), шифровалось и передавалось дальше.
Компонента MappedPort из Indy9 передает данные хорошо ( и в Indy 6 хорошо передавала), но не шифрует, а требует на вход уже шифрованный сигнал. Пришлось писать самому.

Сделал очень просто, примерно так:

1. Настроил TCPServer и TC:TTCPClient;
2. В onExecute

S:=AThread.Connection.CurrentReadBuffer;
TC.Write(s);
S:=TC.CurrentReadBuffer;
AThread.Connection.Write(S);

Все работает, но если больше 32 кб. данных, то AThread.Connection.CurrentReadBuffer висит и не подает признаков жизни. Любые попытки изменить размер буфера приводят к ухудшению ситуации (начинает висеть при меньших объемах). Помогите!!!!!!!!!!!1