procedure TSender.AvtorizationPol_ge;
var
    MyParams :  TStringList;
     //--- JSON
     JSONObject, RequestBody: ISuperObject;
     //--- Для отправка данных на сервере
     SendJS: TStringStream;
     //-- Для цикла MSADOquery
     i:Integer;
     //---------
    st: TStreamReader;
begin
  try
    // ---TStringList Создать
    MyParams:= TStringList.Create;
    //---- Всё параметри внимательно
    MyParams.Add('username=xxxxxxx@gmail.com') ;
    MyParams.Add('password=*****');
    MyParams.Add('client_id=lombard-service') ;
    MyParams.Add('client_secret=7676a315-eb0e-4123-bcbf-e5ee8710a422');
    MyParams.Add('grant_type=password') ;
  //--------HandleRedirects := true; ----------------------
   IdHTTP1.HandleRedirects := true;
   // --------Только это для SSL -----------
   IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  //--Без этого тоже работает. Но я добавил что запрос отправил utf-8 -------------------
     IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
     IdHTTP1.Request.Charset := 'utf-8';
    // Хранить тексть запроса на
    edtAvtorization.Text := IdHTTP1.Post('https://accounts.police.ge/auth/realms/company/protocol/openid-connect/token', MyParams);
    //--------Создать----------
    JSONObject:=TSuperObject.Create;
    //---Передать все тексть
    JSONObject:=SO(edtAvtorization.Text);
    //----Получить только  access_token   Memo2.Text
    edtAccess_token.Text:=JSONObject.S['access_token'];

  finally
     MyParams.Free;
  end;
  //---- передать данных

  idHTTP1.Request.Clear;

//------------
  idHTTP1.Request.CustomHeaders.FoldLines := False;      // access_token  
  idHTTP1.Request.CustomHeaders.Values['Authorization'] := 'Bearer '  + edtAccess_token.Text;
  //----------------------------------------------------------------
  if  MSQuery1.RecordCount <>0 then
  begin
  try
  MSQuery1.Open;
//  -----------------------
// s := BytesToStringRaw(MSQuery1.FieldByName('base64').AsString);
//---------------------------
  MSQuery1.First;
  for i:=0 to MSQuery1.RecordCount-1  do
  begin
  RequestBody := SO('{"personalNo": "'+MSQuery1.FieldByName('personalNo').AsString+'", '+  //  
                    ' "firstName": "'+MSQuery1.FieldByName('firstName').AsString+'", '+
                    ' "lastName": "'+MSQuery1.FieldByName('lastName').AsString+'", '+
                    ' "birthDate": "'+FormatDateTime('yyyy-mm-dd', MSQuery1.FieldByName('birthDate').AsDateTime)+'", '+    //
                    ' "citizenship": "'+MSQuery1.FieldByName('citizenship').AsString+'", '+   //
                    ' "phone": "'+MSQuery1.FieldByName('phone').AsString+'", '+    //
                    ' "realAddress": "'+MSQuery1.FieldByName('realAddress').AsString+'", '+ //
                    ' "customerId": "'+MSQuery1.FieldByName('customerId').AsString+'", '+  //
                    ' "itemList": [ '+
                    ' { "type": "itemTechnic", '+
                    ' "subType": "'+MSQuery1.FieldByName('subType').AsString+'", '+  //
                    ' "createDate": "'+FormatDateTime('yyyy-mm-dd', MSQuery1.FieldByName('createDate').AsDateTime)+'", '+  //
                    ' "brand": "'+MSQuery1.FieldByName('brand').AsString+'", '+   //
                    ' "model": "'+MSQuery1.FieldByName('model').AsString+'", '+   //
                    ' "serialNumber": "'+MSQuery1.FieldByName('t_imei').AsString+'", '+    //
                    ' "price": "'+MSQuery1.FieldByName('price').AsString+'", '+   //
                    ' "currency": "GEL", '+
                    ' "info": "'+MSQuery1.FieldByName('info').AsString+'", '+ //    
                    ' "itemId": "'+MSQuery1.FieldByName('customerId').AsString+'", '+        //
                    ' "photos": [ '+
                    ' { '+
                    ' "data": "'+MSQuery1.FieldByName('base64_2').AsString+'", '+    //
                    ' "name": "Kohinoor.jpeg" '+
                    ' } '+
                    ' ], '+
                    ' }]}  ');
   //---------------------------------

      SendJS := TStringStream.Create(RequestBody.AsString , TEncoding.UTF8);
      idHTTP1.Request.ContentType := 'application/json; charset=utf-8';
                                   //------------
      idHTTP1.post('https://api.pol.ge/api/test/branches/2/customers',  SendJS );
     MSQuery1.Next;
  end
    except
      raise Exception.Create('ошибка JSON ');
  end;
  end;
end;