TWSAProtocolChain = record
  ChainLen: Integer;
  ChainEntries: Array[0..MAX_PROTOCOL_CHAIN-1] of LongInt;
  end;