TCP Client

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <Winsock2.h>
//#include <SysUtils.hpp>
  WSADATA wsaData;
  SOCKET ConnectSocket;  // впускающий сокет и сокет для клиентов
  sockaddr_in ServerAddr;  // это будет адрес сервера
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonInitClick(TObject *Sender)
{
wsaData.
    int err, maxlen = 512;  // код ошибки и размер буферов
    char* recvbuf=new char[maxlen];  // буфер приема
 
    // Initialize Winsock
    WSAStartup(MAKEWORD(2,2), &wsaData);
 
    // Connect to server
    ConnectSocket = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 
    ServerAddr.sin_family=AF_INET;
 
    ServerAddr.sin_addr.s_addr=inet_addr("127.0.0.1");
    ServerAddr.sin_port=htons(50001);
 
    err = connect( ConnectSocket, (sockaddr *) &ServerAddr, sizeof(ServerAddr));
 
    if (err == SOCKET_ERROR) {
        //printf("connect failed: %d\n", WSAGetLastError());
        closesocket(ConnectSocket);
        WSACleanup();
        return;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonSendClick(TObject *Sender)
{
char Text[100];
StrPCopy(Text,EditSend->Text);
send( ConnectSocket,  Text,EditSend->Text.Length() , 0 );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonReadClick(TObject *Sender)
{
char query[100];
int len=100;
recv(ConnectSocket, query, len, 0);//Виснет здесь!!!
MemoResult->Text=query;
}
//---------------------------------------------------------------------------