Ошибка Out of system resources

void __fastcall WinSock::Execute()
{
 
 char buff[20];
  memset(buff,0,sizeof(buff));
 
        WSADATA wsaData;
 
        if (WSAStartup(MAKEWORD(2,0),&wsaData)!=0)
        {
                Form1->Memo1->Lines->Add("Error Start");
        }
            else
        {   Form1->Memo1->Lines->Add("Start OK");}
 
        // Create Socket
        SOCKET s;
        s=socket(AF_INET, SOCK_DGRAM,IPPROTO_UDP);
        if (s==INVALID_SOCKET)
        {
        Form1->Memo1->Lines->Add("Error Create Socket");
        }
            else
        {
        Form1->Memo1->Lines->Add("Socket Create");
        }
 
       //Заполнение структуры
 
       struct sockaddr_in serv_addr;
       serv_addr.sin_family=AF_INET;
           serv_addr.sin_addr.S_un.S_addr=INADDR_ANY;
          serv_addr.sin_port=htons(5670);
        int serv_addrsize = sizeof(serv_addr);
       //BINDing
 
       int err=bind(s,(sockaddr*)&serv_addr,sizeof(serv_addr));
       if (err==0)
       {
             Form1->Memo1->Lines->Add("Bind OK");
       }
        else
       {
           Form1->Memo1->Lines->Add("Bind Error");
       }
        while(!Terminated)
    {
 
 
 
int bsize= recvfrom(s,buff,sizeof(buff),0,(sockaddr *)&serv_addr,&serv_addrsize);
 
 
           if (bsize==SOCKET_ERROR)
           {
                 Form1->Memo1->Lines->Add("RecvFrom Error");
           }
           else
           {        // TDateTime time=Now();
//  String time3 = Time().FormatString("hh:mm:ss:zzz");
               Form1->Edit1->Text="";           Form1->Edit1->Text=buff;
                         NewThread=new Paint (true);
TDateTime time3= Now().CurrentTime();
        unsigned short h, m, s, ms;
time3.DecodeTime(&h, &m, &s, &ms);
//Memo1->Lines->Add(time3);
//Edit1->Text=TimeToStr(time3)+":"+ms;
 
            Form1->Memo2->Lines->Add(buff);
            Form1->Memo2->Lines->Add("Klient: "+TimeToStr(time3)+","+ms);
 
 
            Form1->Memo2->Lines->Add("-------------------------");
 
     
        NewThread->FreeOnTerminate=true;
       NewThread->Resume();    //
         // memset(buff,0,sizeof(buff));
            NewThreadFile=new FileThread(true);
            NewThreadFile->FreeOnTerminate=true;
            NewThreadFile->Resume();
           //   NewThreadFile->Terminate();
               memset(buff,0,sizeof(buff));
            }    }

  WSADATA wsd;
    if (WSAStartup(MAKEWORD(2,0), &wsd)!=0)
     {
                Form1->Memo1->Lines->Add("Ошибка старта сокета");
    }
    else
    {Form1->Memo1->Lines->Add("Сообщение отправлено");
    SOCKET S;
    struct sockaddr_in servaddr;
    S=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
    AnsiString ip=Form1->Edit3->Text;
    servaddr.sin_family=AF_INET;
    servaddr.sin_port=htons(StrToInt(Form1->Edit2->Text));
    servaddr.sin_addr.s_addr=inet_addr(ip.c_str());
 
    
    AnsiString buff = Form1->Edit1->Text;
   
S=sendto(S, buff.c_str(),buff.Length(),0,(sockaddr *)&servaddr,sizeof(servaddr));
}  Sleep(50);   }