procedure Mythread.Execute;
begin
form1.GET_MAAINDATA('250','0','1');
end;

procedure Mythread2.Execute;
begin
form1.GET_MAAINDATA('500','250','2');
end;   

procedure TForm1.GET_MAAINDATA(limit,offset,numpotok:string);
begin    
//ПОЛУЧИЛ СОРС СТРАНИЦЫ С ИНТЕРНЕТА
temp:=PChar(HTTPs.Document.Memory);

while pos(',{"uuid"',temp)<>0 do
begin
get_main_data2(copy(temp,1,pos(',{"uuid"',temp)-1));
delete(temp,1,pos(',{"uuid"',temp)+9);
end; 

end;

function TForm1.get_main_data2(input:string):string;
var
SQL_Database:tsqlconnector;
SQL_Transaction:tsqlTransaction;
SQL_Query:tsqlquery;
SQL_Datasource:tDatasource; 
//СТРОКОВЫЕ ПЕРЕМЕННЫЕ ДЛЯ ОБРАБОТКИ
begin

SQL_Database:=tsqlconnector.Create(self);
SQL_Transaction:=tsqlTransaction.Create(self);
SQL_Datasource:=tDatasource.Create(self);
SQL_Query:=tsqlquery.Create(self);

SQL_Database.connectortype:='MSSQLServer';
SQL_Database.DatabaseName:='test';
SQL_Database.HostName:='хост';
SQL_Database.username:='пользователь';
SQL_Database.password:='пароль';
SQL_Database.Transaction:=SQL_Transaction;
SQL_Transaction.database:=SQL_Database;
SQL_Query.database:=SQL_Database;
SQL_Query.Transaction:=SQL_Transaction;
SQL_Query.PacketRecords:=-1;
SQL_Datasource.dataset:=SQL_Query;

SQL_Database.connected:=true;  

//ОБРАБОТКА СТРОК

//SQL INSERT ВСТАВКА СТРОК В ТАБЛИЦУ

end;

procedure TForm1.Button2Click(Sender: TObject);
var
 MyThread : TMyThread;
 i,l:integer;
 k:tdate;
 YY,MM,DD : Word;
 day,month:string;
begin
k:=strtodate('17.04.2019');

for i:=120 downto 1 do
begin
k:=k-1;
DecodeDate(k,YY,MM,DD);
day:=inttostr(DD);
if length(day)=1 then day:='0'+day;
month:=inttostr(MM);
if length(month)=1 then month:='0'+month;

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); // With the True parameter it doesn't start automatically
if Assigned(MyThread.FatalException) then
  raise MyThread.FatalException;
MyThread.Start;
end;
        

procedure TMyThread.Execute;
var
i:integer;
temp:string;
HTTPs: THTTPSend;
Data: TStringStream;
uuid,tempout: string;
exportfull: tstringlist ;
starttime,endtime:ttime;
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;

if not HTTPs.HTTPMethod('POST','https://contragent.cdek.ru/api/preback')  then
    MessageDlg('POST Ошибка '+ IntToStr(HTTPs.Resultcode)+#13#10+HTTPs.Resultstring,mtError,[mbok],0) else
    temp:= PChar(HTTPs.Document.Memory);

HTTPs.free;

exportfull.text:=temp;
exportfull.SaveToFile(ExtractFilePath(Application.ExeName)+'out\'+exportname+'_ur.txt');
exportfull.free;
endtime:=now;
exportfull.free;
form1.memo1.lines.add('Complete '+numpotok+': '+timetostr(endtime-starttime));