🚀 go-pugleaf

i want when i click the button to send the file from a serversocket to a
client socket
 please help me
what is wrong with the code?is it better to use indy components?if yes could
y plz sypply me with the code?
any ideas would be most welcome..always using borland builder(only)
THANK YOU ALL IN ADVANCE FOR YOUR HELP

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
TFileStream* file = new TFileStream(OpenDialog1->FileName,fmOpenRead);
ServerSocket1->Socket->Connections[0]->SendStream(file);
Memo1->Lines->Add(file->Size);
}}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
int iLen;
Pointer BFR;
iLen=ClientSocket1->Socket->ReceiveLength();
Memo2->Lines->Add(iLen);
//GetMem(BFR,iLen);
ClientSocket1->Socket->ReceiveBuf(BFR,iLen);
SaveDialog1->Execute();
TFileStream *file2 = new TFileStream(SaveDialog1->FileName,fmOpenWrite);
file2->ReadBuffer(BFR,iLen);
file2->Write(BFR,iLen);
}
//------------------------------------------------------------------------
of course it doesnt work..lol..please help me