QOS = packed record
  SendingFlowspec: TFlowSpec;
  ReceivingFlowspec: TFlowSpec;
  ProviderSpecific: WSABUF;
  end;