Исходники и сами приложения демонстрирующие реализацию передачи файлов в локальной сети посредством стандартных компонентов Delphi (лично я использовал седьмую, думаю без изменений и на 6 прокатит).
Используются TServerSocket & TClientSocket.
Файл помещается в MemoryStream и затем поток отсылается.
В качестве теста - оправил и принял файл размеров 80 метров 
При приеме - клиент жрет 100% системных ресурсов Но передача идет стабильная. Скорость не замерял. Еще одна особенность - клиент сохраняет файл по тому же пути, откуда его передал сервер.
То есть, если пересылать самому себе(с 127.0.0.1 на 127.0.0.1) то файл тупо перезапишется.
Вот собственно и все.
Сначала запускаете сервер, затем клиента. Вводите имя(путь к файлу, если файл не в папке с программой).
Может кому пригодиться, я долго искал и ковырялся.
