C:\Users\Dima>nslookup -type=txt edm-config
╤хЁтхЁ:  qwe.xxxxxx.net
Address:  10.0.0.5

edm-config.xxxxxx.net   text =

       "server=edm.xxxxxx.ru"
       "port=443"
       "uri=/raw/"

     if DnsQuery_A('edm-config', DNS_TYPE_TEXT, DNS_QUERY_STANDARD, nil, @pQueryResultsSet, nil) = 0 then
     begin
       for I := 0 to Pred(pQueryResultsSet^.Data.HINFO.dwStringCount) do
         FValues.Add(pQueryResultsSet^.Data.HINFO.pStringArray[I]);
       DnsRecordListFree(pQueryResultsSet, DnsFreeFlat);
     end else begin
       raise Exception.Create('Не удалось загрузить конфигурацию.');
     end;