BCB中Socket编程，没法Create

BCB中Socket编程，无法Create
//socket.cpp

#include <winsock2.h>

//Socket类声明如下：
class CNtpSocket
{
public:
  CNtpSocket();
  ~CNtpSocket();

  BOOL Create();
  BOOL Connect(const char*  pszHostAddress, int nPort);
  BOOL Send(LPCSTR pszBuf, int nBuf);
  int Receive(LPSTR pszBuf, int nBuf);
  void Close();
  BOOL IsReadible(BOOL& bReadible, DWORD dwTimeout);

protected:
  BOOL Connect(const SOCKADDR* lpSockAddr, int nSockAddrLen);
  SOCKET m_hSocket;
};



//Create函数实现如下
BOOL CNtpSocket::Create()
{
  m_hSocket = socket(AF_INET, SOCK_DGRAM, 0);
  return (m_hSocket != INVALID_SOCKET);
}



//在项目另一处构造CNtpSocket类实例并Create一个socket
  CNtpSocket* pSocket = new CNtpSocket();
  if(!pSocket->Create())
       delete pSocket;

结果pSocket就被delete掉了
断点跟踪发现m_hSocket = socket(AF_INET, SOCK_DGRAM, 0);这一句话执行返回的m_hSocket为INVALID_SOCKET
这是怎么回事啊，望达人解惑
[解决办法]
WSAStartup初始化没有?
[解决办法]

WSADATA wsaData;
WORD sockVersion = MAKEWORD(2, 0);
if (0 != WSAStartup(sockVersion, &wsaData))
{
   std::cout << "Failed to retrive socket version." 
    << std::endl;
   return 0;
}

SOCKET sock_client;
sock_client = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if (INVALID_SOCKET == sock_client)
{
   std::cout << "Invalid socket." << std::endl;
   WSACleanup();
   return 0;
}
sockaddr_in addr_sev;
addr_sev.sin_family = AF_INET;
addr_sev.sin_port = htons(PORT_SERVER);
addr_sev.sin_addr.s_addr = inet_addr("127.0.0.1");
if (SOCKET_ERROR == connect(sock_client, (sockaddr *)&addr_sev, sizeof(addr_sev)))
{
   std::cout << "Failed to connect." << std::endl;
   WSACleanup();
   return 0;
}
char buf[512];
int recv_size = 0;
recv_size = recv(sock_client, buf, 512, 0);
if (512 > recv_size)
{
   buf[recv_size] = '\0';
   std::cout << "receive data is :" << buf << std::endl;
   memset(buf, 0, sizeof(buf));
}
else
{
   std::cout << "receive data is overflow" << std::endl;
}
closesocket(sock_client);
WSACleanup();

WSADATA wsaData;
WORD sockVersion = MAKEWORD(2, 0);
if (0 != WSAStartup(sockVersion, &wsaData))
{
   std::cout << "Failed to retrive socket version."  
 
    << std::endl;
   return 0;
}