Неправда, я доделывал TSocked.Send, чтобы он посылал всё до конца, т.е. отправка там в цикле, до тех пор, пока не отправится всё. Проблема тут, как мне кажется, несколько иная: при отправке большого блока данных сообщения не обрабатываются, до тех пор, пока всё не отправится, и если принимает та-же программа, то я не уверен, что она не "проспит" сообщение о том, что данные пришли. Чтобы убедиться в этом надо разделить клиент и сервер на два приложения.
Я так и не добился, чтобы TSocked.Send при блокировке отправки обрабатывал сообщения из очереди, поэтому в этой процедуре часть строк закомментирована.