uses Winsock;

function WinsockEnabled: boolean;

var

  wsaData: TWSAData;

begin

  result := true;

  case Winsock.WSAStartup($0101,wsaData) of

  WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: result := false;

  else Winsock.WSACleanup;

  end;

end;