Не передается файл в клиент-серверном приложении

//....
TClientSocket *array_Client[10]; // тут можно просто TClientSocket *Client;
//......
array_Client[i] = new TClientSocket(Form1); // Client = new TClientSocket(Form1); // у меня привязка к форме
//......
Stream->LoadFromFile(tmp4);
array_Client[i]->Socket->SendText("file#" + tmp2 + "#"+IntToStr(Stream->Size)+"#"); //отсылаем сначала размер файла
Sleep(1000);
Stream->Position=0;
filePointer=Stream->Memory;
int fileSize = array_Client[i]->Socket->SendBuf(filePointer, Stream->Size); //следом отсылаем сам файл

void __fastcall TForm1::ServerClientRead(TObject *Sender, TCustomWinSocket *Socket)
 
{
    AnsiString recieveText=Socket->ReceiveText();
    if (isReceive == true) {
        Write(recieveText);
    }
        if(recieveText.SubString(0,recieveText.Pos("#")-1)=="file") {
            String name = "";
            fileName = "";
            recieveText.Delete(1,recieveText.Pos("#"));
            name = recieveText.SubString(0,recieveText.Pos("#")-1);
            fileName = name.SubString(name.LastDelimiter("\\")+1,name.Length());
            name = name.SubString(0,name.Pos("_")-1);
            name_cam->Add(fileName);
            recieveText.Delete(1,recieveText.Pos("#"));
            fileSize=StrToInt(recieveText.SubString(0,recieveText.Pos("#")-1));
            recieveText.Delete(1,recieveText.Pos("#"));
            name_cam_pic = fileName;
 
 
            isReceive=true;
        }
//......
}
//....
void __fastcall TForm1::Write( AnsiString Text )
{
if(Stream->Size<fileSize)
 Stream->Write(Text.c_str(), Text.Length());
 
if(Stream->Size==fileSize) {
     isReceive=false;
     name_cam->Add(name_cam_pic);
     cam_pic_dir->Add(fileName);
     Stream->Position=false;
     Form1->Server->Socket->Connections[0]->SendText("OK!"); // приняли
     CreateDir(ExtractFilePath(Application->ExeName) + "\\Downloads");
     Stream->SaveToFile(ExtractFilePath(Application->ExeName) + "\\Downloads\\" + fileName + ".jpg"); //записали
     Stream->Clear();
     fileSize=0;
 }
}