Socket: Client & Server

void __fastcall TForm1::Button3Click(TObject *Sender) //СОЕДИНЕНИЕ С СЕРВЕРОМ
{
        prep()
        connect_to_serv()        
}
bool prep()
{
    WSADATA WsaData;
    WSAStartup(0x202, &WsaData)
    gethostname(hostname, sizeof(hostname))
        myhost = gethostbyname(hostname))
        sock = socket(AF_INET, SOCK_STREAM, 0)
        setsockopt(sock, SOL_SOCKET, SO_SNDBUF, optval_set_sndbuf, optlen_set_sndbuf)
        setsockopt(sock, SOL_SOCKET, SO_RCVBUF, optval_set_rcvbuf, optlen_set_rcvbuf)
        client.sin_family      = AF_INET;
        client.sin_addr.s_addr = INADDR_ANY;
        client.sin_port        = htons(CLIENT_PORT);
    h = gethostbyname(server_name)
        server.sin_family = AF_INET;
        memcpy((char *)&server.sin_addr, h -> h_addr, h -> h_length);
    server.sin_port = htons(SERVER_PORT);
}
bool connect_to_serv()
{
        answer_len=0;
        while (connect(sock, (struct sockaddr *)&server, sizeof(server)) == SOCKET_ERROR)
        {
                Sleep(1);
        }
        recv(sock, buffer, BUF_SIZE, 0)
}
void __fastcall TForm1::Button2Click(TObject *Sender)  //ОТПРАВКА СООБЩЕНИЯ
{
    sends(sock, message, &len); 
}