Erro na requisição: "REST request failed:"

[marcospatzer]

Estou com o seguinte retorno:

REST request failed:
java.net.SocketTimeoutException: failed to connect to /999.999..99999 (port 9000) from /100.99.99.99 (port 42366) after 30000 ms

Esta acontecendo só de vez em quando e somente quando faço a requisicao por um celular (android) utilizando rede móvel (5G).
Usando wifi não acontece, achei podia ser a API ou o firewall, mas batendo com o postman nunca acontece.
A cada 6 ou 5 tentativas 1 geralmente falha.

Usando as versões:
"https://github.com/viniciussanchez/dataset-serialize": "^v2.4.1",
"https://github.com/viniciussanchez/restrequest4delphi": "^v3.0.18"

Segue o codigo:

function TDmGeral.ListarPedidos : String;
var resp: IResponse;
begin

//  TabPedidos.Fields.Clear;
//  TabPedidos.FieldDefs.Clear;
  try
    try
    resp := TRequest.New.BaseURL(vg_BASE_URL)
            .Resource('pedidos')
            .ResourceSuffix(vg_id_usuario)
            .AddParam('page', vg_Pagina.ToString)
            .AddParam('limit', vg_QtdPagina.ToString)
            .AddHeader('dataini', vg_DataIni,[poDoNotEncode])
            .AddHeader('datafim', vg_dataFim,[poDoNotEncode])
            .AddHeader('pedido', vg_Pedido,[poDoNotEncode])
            .AddHeader('tipodata', vg_TipoData.ToString,[poDoNotEncode])
            .AddHeader('X-Paginate','true')
  //          .DataSetAdapter(TabPedidos)
            .Accept('application/json')
            .TokenBearer(uFunctions.vg_token)
            .Get;

            if (resp.StatusCode = 0) then
               raise Exception.Create('Uma conexão com o Servidor não pode ser estabelecida !')
            else 
            begin
               if (resp.StatusCode = 404) or (resp.StatusCode = 409) then
                   raise Exception.Create(resp.JSONValue.GetValue<string>('error'))
               else
                  if (resp.StatusCode <> 200) then
                     raise Exception.Create(resp.Content);
            end;
            Result := resp.Content;
  
    except
      on E: Exception do begin
               raise Exception.Create(E.Message);
           end;
    end;        
  
  finally
    resp := nil;
  end;
end;

[marcospatzer]

colocando "Retry" melhorou bem:

		.Retry(3)
		.Timeout(5000)
                    .Get;