Как сделать простейшую передать файл через Сокет

[SevenXP]

Устал искать примеры думаю мне помогут. Нужно простейшая передача файла. У меня сервер который должен передать всем подключившимся вордовский докумен. На сервере я писал. Пример перебивал с делфи на делфе он не пашет или криво.

OpenDialog1->Execute();
TFileStream *fs = new TFileStream(OpenDialog1->FileName,fmOpenRead);
for (int i = 0; i < ServerSocket2->Socket->ActiveConnections; i++){
ServerSocket2->Socket->SendStream(fs); }
Memo1->Lines->Insert(0,"Âñåì ïîäêëþ÷åííûì áûë îòîñëàí ôàéë"+OpenDialog1->FileName);
fs->Free();

Обработка не могу выделить память методом GetMem и освободить FreeMem. Но на делфе он как уже говорил работает криво. На клиенте в он ред писал обработку.

int l;
PChar buf;
l=Socket->ReceiveLength();
GetMem(buf,l+1);
Socket->ReceiveBuf(buf,l);
TFileStream *src= new TFileStream("C:\1temp.tmp",fmOpenWr ite);
src->Seek(0,soFromEnd);
src->WriteBuffer(buf,l);
src->Free();
FreeMem(buf);

помогите сделать простейшую передачу файла через сокет. Желательно на Builder C++

[SevenXP]

Кому интересно обсолютно рабочий программный когд -> http://www.sources.ru/magazine/1204/tsocket.html . Переделал под себя как нужно Респект челу который написал этот пример))