TWSAData

type 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;