TWSAProtocol_InfoA = record
  dwServiceFlags1: LongInt;
  dwServiceFlags2: LongInt;
  dwServiceFlags3: LongInt;
  dwServiceFlags4: LongInt;
  dwProviderFlags: LongInt;
  ProviderId: TGUID;
  dwCatalogEntryId: LongInt;
  ProtocolChain: TWSAProtocolChain;
  iVersion: Integer;
  iAddressFamily: Integer;
  iMaxSockAddr: Integer;
  iMinSockAddr: Integer;
  iSocketType: Integer;
  iProtocol: Integer;
  iProtocolMaxOffset: Integer;
  iNetworkByteOrder: Integer;
  iSecurityScheme: Integer;
  dwMessageSize: LongInt;
  dwProviderReserved: LongInt;
  szProtocol: Array[0..WSAPROTOCOL_LEN+1-1] of Char;
  end;