Авторизация на сайте и получение данных по запросу

var
  LoginData, Response: TStrings;
begin
  LoginData := TStringList.Create;
  Response := TStringList.Create;
  try
    LoginData.Add('username=' + Form1.edt1.Text);
    LoginData.Add('password=' + Form1.edt2.Text);
    LoginData.Add('rememberme=false');
    LoginData.Add('type=shipstation');
    Response.Text := Form1.idhtp1.Post('https://ss5.**********.com/api/auth/GetToken', LoginData);
    Form1.mmo1.Lines.Clear;
    Form1.mmo1.Lines.Add(Response.Text);
  except
 
  end;

var
  TovarData, Response: TStrings;
  page, sort, dir, pageSize, showInactive: string;
begin
  TovarData := TStringList.Create;
  Response := TStringList.Create;
  //try
    TovarData.Add('page=1');
    TovarData.Add('sort=Name');
    TovarData.Add('dir=asc');
    TovarData.Add('pageSize=500');
    TovarData.Add('showInactive=false');
    Form1.idhtp1.Post('https://ss5.*********.com/api/products?', TovarData);
    Form1.mmo2.Lines.Clear;
    Form1.mmo2.Lines.Add(Response.Text);
  //except
 
  //end;

 Items: ISuperObject;
  A: ISuperArray;
  JSON, response_token: string;
  i: Integer;
  LoginData, Response: TStringList;
begin
  LoginData := TStringList.Create;
  Response := TStringList.Create;
  try
    LoginData.Add('username=' + Form1.edt1.Text);
    LoginData.Add('password=' + Form1.edt2.Text);
    LoginData.Add('rememberme=false');
    LoginData.Add('type=shipstation');
    Response.Text := Form1.idhtp1.Post('https://ss5.*************.com/api/auth/GetToken', LoginData);
    A := TSuperArray.Create(Response.Text);
    for i := 0 to A.Length - 1 do
    begin
      Items := A.O[i];
      response_token := Items.S['token'];
      Form1.mmo2.Lines.Add(response_token);
    end;
  except
    Form1.mmo2.Lines.Clear;
    Form1.mmo2.Lines.Add('Ошибка!!!');
  end;

  Form1.idhtp1.Request.CustomHeaders.AddValue('Authorization', тут токен который я получаю);
  Form1.mmo3.Text := Form1.idhtp1.Get('https://ssapi.*********.com/products/');

  Form1.idhtp1.Request.CustomHeaders.AddValue('Authorization-Token', тут токен который получил);
  Form1.mmo3.Text := Form1.idhtp1.Get('https://ss5.************.com/api/products?page=1&sort=Name&dir=asc&pageSize=500&showInactive=false');