TWSAData = packed record
  wVersion: Word;
  wHighVersion: Word;
  szDescription: Array[0..wsadescription_len] of Char;
  szSystemStatus: Array[0..wsasys_status_len] of Char;
  iMaxSockets: Word;
  iMaxUdpDg: Word;
  lpVendorInfo: PChar;
  end;