dephi5程序如何用 winsock2 在线等待 谢谢!!!

Question

dephi5如何模拟 c++的这段话 
WORD wVersionRequested;
  WSADATA wsaData;
        wVersionRequested = (WORD) ((BYTE)2);
        if ( WSAStartup( wVersionRequested, &wsaData ) != 0 )

Answer 1

var
  ErrorCode: Integer;
  WSAData: TWSAData;
  wVersionRequested:word;
begin  wVersionRequested:=$0002;{2.0}
{wVersionRequested:=MakeWord(2,0)}
  ErrorCode := WSAStartup(wVersionRequested, WSAData);
  if ErrorCode <> 0 then

Answer 2

uses
  Windows,WinSock;{you need add other}