Как передать картинку (TJPEGImage) размером до 3 мб?

TMemoryStream *memstream = new TMemoryStream;
        Graphics::TBitmap *Bitmap=new Graphics::TBitmap;
        TJPEGImage *jpeg = new TJPEGImage;
        HDC DC=GetDC(0);
        try
        {
            Bitmap->Height=Screen->Height;
            Bitmap->Width=Screen->Width;
            BitBlt(Bitmap->Canvas->Handle , 0, 0, Screen->Width, Screen->Height,DC, 0, 0, SRCCOPY);
            jpeg->Assign(Bitmap);
            jpeg->CompressionQuality = 75;
            jpeg->Compress();
            jpeg->SaveToFile("C://SEND.ST");
            TFileStream *file = new TFileStream("C:\\SEND.ST", fmOpenRead);
            SocketClientFileSend->Active = true;
            SocketClientFileSend->Socket->SendStream(file);
            Application->ProcessMessages();
        }
        catch(...){}

void __fastcall TForm1::GetFile()
{
    GetingFile = true;
    AnsiString Get = ServerSocketGetFile->Socket->Connections[0]->ReceiveText();
    unsigned int size;
    int count;
    void *buffer;
    TFileStream *memstream = new TFileStream("C:\\GET.ST", fmOpenReadWrite);
    do
    {
        count = ServerSocketGetFile->Socket->Connections[0]->ReceiveLength();
        ServerSocketGetFile->Socket->Connections[0]->ReceiveBuf(&buffer, sizeof(unsigned int));
        buffer = new char[4096];
        memstream->WriteBuffer(buffer, 4096);
    }
    while(count > 0);
    memstream->Free();
    GetingFile = false;
}
void __fastcall TForm1::ServerSocketGetFileClientRead(TObject *Sender, TCustomWinSocket *Socket)
 
{
    if(!GetingFile)
    {
        GetFile();
    }
}