TWSAQuerySetW = packed record
  dwSize: DWORD;
  lpszServiceInstanceName: PWideChar;
  lpServiceClassId: PGUID;
  lpVersion: PWSAVERSION;
  lpszComment: PWideChar;
  dwNameSpace: DWORD;
  lpNSProviderId: PGUID;
  lpszContext: PWideChar;
  dwNumberOfProtocols: DWORD;
  lpafpProtocols: PAFProtocols;
  lpszQueryString: PWideChar;
  dwNumberOfCsAddrs: DWORD;
  lpcsaBuffer: PCSADDR_INFO;
  dwOutputFlags: DWORD;
  lpBlob: PBLOB;
  end;