for l:=1 to 10 do
begin

if not fileexists(ExtractFilePath(Application.ExeName)+'out\'+inttostr(YY)+'-'+month+'-'+day+'_ur.txt') then
begin

//создание потока
MyThread := TMyThread.Create(True,'9500','0',inttostr(i),'{"field":"dateCreatedFrom","value":"'+inttostr(YY)+'-'+month+'-'+day+'"},{"field":"dateCreatedTo","value":"'+inttostr(YY)+'-'+month+'-'+day+'"}',inttostr(YY)+'-'+month+'-'+day); 

if Assigned(MyThread.FatalException) then
  raise MyThread.FatalException;

//запуск потока
MyThread.Start;
sleep(300);
end;

end;  

procedure TMyThread.Execute;
var
i:integer;
temp:string;
HTTPs: THTTPSend;
Data: TStringStream;
uuid,tempout: string;
exportfull: tstringlist ;
starttime,endtime:ttime;
trycount:integer;
begin
starttime:=now;
exportfull:= tstringlist.create;
exportfull.text:='';

https:=thttpsend.Create;
HTTPs.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.4) Gecko/20100611 Firefox/3.6.4';
//https.KeepAlive:=true;
HTTPs.Protocol:= '1.1';
HTTPs.Timeout:= 10000; // 45 seconds
HTTPs.MimeType :='application/json;charset=UTF-8';
HTTPs.Headers.Addstrings(['pwt:1937f8f982e64da2b9e0c6d5fbe889da']);

Data := TStringStream.Create('');
Data.WriteString('{"lang":"rus","apiName":"contragent","apiPath":"/contragentEk5/getFilterData","limit":'+limit+',"offset":'+offset+',"fields":['+fields+',{"field":"type","value":"ur"}],"columns":["ek4Id","country","city","name","type","subdivisionName","kindOfActivity","masterCity","note"],"sort":[]}');

HTTPs.Document.LoadFromStream(Data);
Data.Free;

    temp:='empty';
   trycount:=0;

    while (temp='empty')or(pos('alert',temp)<>0)or(trycount>10) do
    begin
    if not HTTPs.HTTPMethod('POST','https://contragent.cdek.ru/api/preback')  then
    begin
    inc(trycount);

    sleep(50{*trycount});
     end  else
    temp:= PChar(HTTPs.Document.Memory);

    end;

HTTPs.free;

if (temp<>'')and(temp<>'empty') then
begin
exportfull.text:=temp;
exportfull.SaveToFile(ExtractFilePath(Application.ExeName)+'out\'+exportname+'_ur.txt');
end;
exportfull.free;
endtime:=now;

terminate;
end;