Запрос проходит но в ответе каракули

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, httpsend, ssl_openssl, regexpr, Data.DBXJSON;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  Thread = class(TThread)
  private
    HTTP: THTTPSend;
    PageList, prx2, ResponeList, Numbers: TStringList;
    Link, id, value, respone: String;
    Page: Integer;
    reg2: tRegexpr;
    Json: TJSONObject;
  protected
    procedure Execute; override;
  end;
 
 
var
  Form1: TForm1;
  MyThread: Thread;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  MyThread:=Thread.Create(true);
  MyThread.FreeOnTerminate:=true;
  MyThread.Priority:=tpLower;
  MyThread.Resume;
end;
 
{ Thread }
 
procedure Thread.Execute;
var
  i, j: integer;
begin
  inherited;
  Link := Form1.Edit1.Text;
  Page := StrToInt(Form1.Edit2.Text);
  prx2 := tstringlist.Create;
 
  for i := 1 to Page do begin
    HTTP := THTTPSend.Create;
    PageList := TStringList.Create;
    HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.36';
    HTTP.Protocol := '1.1';
    HTTP.Headers.Insert(0, 'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
    HTTP.Headers.Insert(0, 'Accept-Encoding: gzip, deflate');
    HTTP.Headers.Insert(0, 'Host: kolesa.kz');
    HTTP.Headers.Insert(0, 'Connection: keep-alive');
    HTTP.Headers.Insert(0, 'Upgrade-Insecure-Requests: 1');
    HTTP.Headers.Insert(0, 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
    HTTP.HTTPMethod('GET', link+'?page='+IntToStr(i));
    PageList.LoadFromStream(HTTP.Document);
 
    reg2 := tRegExpr.Create;
    reg2.Expression := '<div class="row list-item" data-id="(.*?)"';
    if reg2.Exec(PageList.Text) then repeat
    prx2.Add(reg2.Match[1]);
    until
    not
    reg2.ExecNext;
 
    FreeAndNil(HTTP);
    FreeAndNil(PageList);
  end;
 
  Numbers := TStringList.Create;
  for j := 0 to prx2.Count - 1 do begin
    id := prx2.Strings[j];
    HTTP := THTTPSend.Create;
    ResponeList := TStringList.Create;
    ResponeList.Clear;
    HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.36';
    HTTP.Protocol := '1.1';
    HTTP.Headers.Insert(0, 'Referer: [url]https://kolesa.kz/a/show/36253018');[/url]
    HTTP.Headers.Insert(0, 'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
    HTTP.Headers.Insert(0, 'Accept-Encoding: gzip, deflate');
    HTTP.Headers.Insert(0, 'X-Requested-With: XMLHttpRequest');
    HTTP.HTTPMethod('GET', 'https://kolesa.kz/a/ajaxPhones/?id='+id);
    ResponeList.LoadFromStream(HTTP.Document);
 
    respone := ResponeList.Text;
    Form1.Memo1.Lines.Add(respone);
    Json := TJSONObject.ParseJSONValue(respone) as TJSONObject;
    value := ((Json.Get('data').JsonValue as TJSONObject).Get('model')
    .JsonValue as TJSONObject).Get('phone').JsonValue.value;
    Numbers.Add(value);
    Form1.Memo1.Lines.Add(value);
    Numbers.SaveToFile('numbers.txt');
 
    FreeAndNil(HTTP);
    FreeAndNil(ResponeList);
  end;
  ShowMessage('Закончил');
end;
 
end.

 for j := 0 to prx2.Count - 1 do begin
    id := prx2.Strings[j];
    HTTP := THTTPSend.Create;
    ResponeList := TStringList.Create;
    ResponeList.Clear;
    HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.36';
    HTTP.Protocol := '1.1';
    HTTP.Headers.Insert(0, 'Referer: [url]https://kolesa.kz/a/show/36253018');[/url]
    HTTP.Headers.Insert(0, 'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
    HTTP.Headers.Insert(0, 'Accept-Encoding: gzip, deflate');
    HTTP.Headers.Insert(0, 'X-Requested-With: XMLHttpRequest');
    HTTP.HTTPMethod('GET', 'https://kolesa.kz/a/ajaxPhones/?id='+id);
    ResponeList.LoadFromStream(HTTP.Document);
 
    respone := ResponeList.Text;
    Form1.Memo1.Lines.Add(respone);
    Json := TJSONObject.ParseJSONValue(respone) as TJSONObject;
    value := ((Json.Get('data').JsonValue as TJSONObject).Get('model')
    .JsonValue as TJSONObject).Get('phone').JsonValue.value;
    Numbers.Add(value);
    Form1.Memo1.Lines.Add(value);
    Numbers.SaveToFile('numbers.txt');
 
    FreeAndNil(HTTP);
    FreeAndNil(ResponeList);