SOCKET对象发送消息有关问题

SOCKET对象发送消息问题?
//m_Socket和client分别是SOCKET和struct   sockaddr_in的全局对象
void   __fastcall   TForm1::Button1Click(TObject   *Sender)
{
        WSADATA   wsaD;
        WORD   wVersionRequested   =   MAKEWORD(1,1);
        if(WSAStartup(wVersionRequested,   &wsaD)   !=0   ){
                MessageDlg( "错误1! ",mtInformation,TMsgDlgButtons() < <mbOK,0);
                return;
        }

        if((m_Socket   =   socket(AF_INET,SOCK_STREAM,0))     ==   INVALID_SOCKET   ){
                MessageDlg( "错误2! ",mtInformation,TMsgDlgButtons() < <mbOK,0);
                return;
        }
        client.sin_family   =   AF_INET;
        client.sin_addr.S_un.S_addr   =   inet_addr( "127.0.0.1 ");
        client.sin_port   =   htons(   878787   );
        int   len   =   sizeof(client);
        if(connect(   m_Socket,   (struct   sockaddr*)&client,   sizeof(   client))   ==   SOCKET_ERROR   ){
                MessageDlg( "错误3! ",mtInformation,TMsgDlgButtons() < <mbOK,0);
                return;
        }

}
//---------------------------------------

void   __fastcall   TForm1::Button2Click(TObject   *Sender)
{
        char   buf[5]   =   { '1 ', '2 ', '3 ', '4 ', '5 '};
        if(   send(   m_Socket,   buf,   5,   0   )   ==   SOCKET_ERROR   ){
                MessageDlg( "错误4! ",mtInformation,TMsgDlgButtons() < <mbOK,0);
                return;
        }                
}

问题是这样的,按Button1连接成功(没有出错,服务器端也能收到连接成功的信息)之后,再按Button2为什么还会出错?哪位大侠能告诉我少了哪个步骤?

[解决办法]
楼主把 ws2_32.lib 这个文件加到工程里应该可以。