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