Передача данных WinSock: не получается передать файлы больше 100 кб

void Send(FILE *SFile)
{
    char LBuff[1024];
    char SBuff[1];
    while(size > 0)
    {
        if (size >= 1024)
        {
            fread(LBuff, 1024, 1, SFile);
            send(s, LBuff, 1024, 0);
            size = size -1024;
        }
        else
        if (size < 1024)
        {
            fread(SBuff, 1, 1, SFile);
            send(s, SBuff, 1, 0);
            size = size -1;
        }
    }
}
 
void __fastcall TformMain::bitbtnWriteClick(TObject *Sender)
{
    struct MsgSt msgstM;
    msgstM.Q[0] = "add";
    void *p;
    char* FSBuff = new char[2048];
    char rec[32];
    FSBuff = AnsiString(size).c_str();
    int k = send(s, FSBuff, 2048, 0);
    FILE *SFile= fopen(Path.c_str(), "rb");
    Send(SFile);
...
}

void __fastcall TformMain::TcpServerAccept(TObject *Sender,
            TCustomIpClient *ClientSocket)
{
        if (msgstM.Q[0]=="add")
        {
 
        MessageBox(0, "ready", "check", 0);
 
 
        //Stream->Position = 0;
        //AnsiString a =msgstM.Q[0];
 
        //прием
    char szbuf[2048];
    char rec[32] = "get";
    int a = 0;
        //MessageBox(0, "ready", AnsiString(a).c_str(), 0);
    while ((a == 0) | (a == -1))
    {a = recv(ns, szbuf, 2048, 0);}
    int size = atoi((szbuf));                 //Получаем размер файла и переводим в инт
    MessageBox(0, AnsiString(size).c_str(), AnsiString(a).c_str(), 0);
    char Sbuf[1];
    char Lbuf[4096];
    //send (ns, rec, 32, 0);
    while (size > 0)
       {
            if (size >= 1024)
            {
                recv(ns, Lbuf, 1024, 0);
                Stream ->Write(Lbuf, 1024);
                size = size - 1024;
            }
            else
            {
                recv(ns, Sbuf, 1, 0);
                Stream ->Write(Sbuf, 1);
                size = size -1;
 
            }
       }
        MessageBox(0, "got", AnsiString(a).c_str(), 0);
        {
        if (size >= 1024)
        {
 
            recv(ns, Lbuf, 1024, 0);
            send(ns, rec, 32, 0);
            Stream ->Write(Lbuf, 1024);
            size =size - 1024;
        }
        if (size < 1024)
        {
 
            recv(ns, Sbuf, 1, 0);
            Stream ->Write(Sbuf, 1);
            send(ns, rec, 32, 0);
            size = size - 1;
        }
    }
        Stream ->SaveToFile(AnsiString("f:\\")+AnsiString(FullFName).c_str());
        Stream ->Clear();