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;