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