Fórum Loop desnecessário dentro do Filtro com SQL em Delphi #617410

procedure Tfrm_Jogos_LF.btn_Sortear_BilheteClick(Sender: TObject);
var
  Aposta: TStringList;
  NumeroDeApostas, NumerosPorAposta, Sorteios, AddMemo, retorno, cor_inicial, copy_memo_inc, copy_memo_cont : Integer;
  seletor_inc, seletor_cont, dezenas_inc, dezenas_cont, i, soma, somaTotal, par, parTotal, impar, imparTotal : Integer;
  primo, primoTotal, pares, impares, primos : Integer;
  strSorteado, strAposta, valor, NomeComp, copy_000, seletor_NomeComp, selecao, dezenas_NomeComp, dezenas : string;
  SQLDezena : string;
  Total, totalPar, totalImpar, totalPrimo : Real;
  Qry: TFDQuery;

begin
  // limpando a stringlist e começando um novo sorteio aleatório inicio
  ListaDosNumerosSelecionados_LF1.Clear;

  num_par := 0;
  num_imp := 0;
  num_primos := 0;
  num_Soma := 0;
  cor_inicial := 0;
  lbl_Pares_Resultado.Caption := num_par.ToString;
  lbl_Impares_Resultado.Caption := num_imp.ToString;
  lbl_Primos_Resultados.Caption := num_primos.ToString;
  lbl_Soma_Resultado.Caption := num_Soma.ToString;

{$REGION 'LF_SELECAO_VOLTAR_COR'}
  for cor_inicial := 1 to 25 do
  begin
    NomeComp := 'selecao' + FormatFloat('000', cor_inicial);
    TPanel(FindComponent(NomeComp)).color := Color_Seletor_Normal;
  end;
{$ENDREGION 'LF_SELECAO_VOLTAR_COR'}
{$REGION 'LF_SELECAO_DEIXA_COM_001_025'}
  // Selecao001.Caption := '001'; //de 001 a 025 (abaixo codigo reduzido)
  cor_inicial := 0;

  for cor_inicial := 1 to 25 do
  begin
    NomeComp := 'selecao' + FormatFloat('000', cor_inicial);
    TPanel(FindComponent(NomeComp)).Caption := FormatFloat('000', cor_inicial);
  end;
{$ENDREGION 'LF_SELECAO_DEIXA_COM_001_025'}
  MemoApostas.Clear; // limpa o memo

  NumeroDeApostas := 1; // quantidade de apostas a serem geradas
  if ckb_Dezenas_15.Checked = True then
  begin
    NumerosPorAposta := 15; // quantidade de números por aposta
  end;

  Aposta := TStringList.Create; // cria a aposta

  for Sorteios := 1 to NumeroDeApostas do
  begin
    ListaDosNumerosSelecionados_Soma_LF.Clear;
    ListaDosNumerosSelecionados_Par_LF.Clear;
    ListaDosNumerosSelecionados_Impar_LF.Clear;
    ListaDosNumerosSelecionados_Primos_LF.Clear;
    Aposta.Clear; // limpa a aposta

    while Aposta.Count < NumerosPorAposta do
    begin
      strSorteado := FormatFloat('000', Random(25) + 1); // sorteia de 1 a 25
      if Aposta.IndexOf(strSorteado) < 0 then
        Aposta.Add(strSorteado);

      if ListaDosNumerosSelecionados_Soma_LF.IndexOf(strSorteado) < 0 then // string da soma
      begin
        ListaDosNumerosSelecionados_Soma_LF.Add(strSorteado);
      end;

      if ListaDosNumerosSelecionados_Par_LF.IndexOf(strSorteado) < 0 then // string pares
      begin
        if NOT Odd(strSorteado.ToInteger) then
        begin
          Inc(pares);
          ListaDosNumerosSelecionados_Par_LF.Add(strSorteado);
        end;
      end;

      if ListaDosNumerosSelecionados_Impar_LF.IndexOf(strSorteado) < 0 then // string impares
      begin
        if Odd(strSorteado.ToInteger) then
        begin
          Inc(impares);
          ListaDosNumerosSelecionados_Impar_LF.Add(strSorteado);
        end;
      end;

      if ListaDosNumerosSelecionados_Primos_LF.IndexOf(strSorteado) < 0 then // string primos
      begin
        if EhPrimo(strSorteado.ToInteger) then
        begin
          Inc(primos);
          ListaDosNumerosSelecionados_Primos_LF.Add(strSorteado);
        end;
      end;
    end;

    Aposta.Sort; // ordena os números da aposta
    ListaDosNumerosSelecionados_Soma_LF.Sort; // ordena os números da aposta
    ListaDosNumerosSelecionados_Par_LF.Sort; // ordena os números pares
    ListaDosNumerosSelecionados_Impar_LF.Sort; // ordena os números ímpares
    ListaDosNumerosSelecionados_Primos_LF.Sort; // ordena os números primos
  end;

  // loop para todas as linhas da stringlist (ListaDosNumerosSelecionados_Soma_LF)
  Total := 0;

  for soma := 0 to ListaDosNumerosSelecionados_Soma_LF.Count - 1 do
  begin
    Total := Total + StrToInt(ListaDosNumerosSelecionados_Soma_LF[soma]);
  end;

  edt_Bilhete_Soma.Text := FloatToStr(Total); // joguei o valor para o Edit

  somaTotal := StrToInt(edt_Bilhete_Soma.Text);

  // loop para todas as linhas da stringlist (ListaDosNumerosSelecionados_Par_LF)
  totalPar := 0;

  for par := 0 to ListaDosNumerosSelecionados_Par_LF.Count do
  begin
    totalPar := par; // caso haja linhas ñ numéricas ele desconsidera e continua contando
  end;

  edt_Bilhete_Par.Text := FloatToStr(totalPar); // joguei o valor para o Edit

  parTotal := StrToInt(edt_Bilhete_Par.Text);

  // loop para todas as linhas da stringlist (ListaDosNumerosSelecionados_Impar_LF)
  totalImpar := 0;

  for impar := 0 to ListaDosNumerosSelecionados_Impar_LF.Count do
  begin
    totalImpar := impar; // caso haja linhas ñ numéricas ele desconsidera e continua contando
  end;

  edt_Bilhete_Impar.Text := FloatToStr(totalImpar); // joguei o valor para o Edit

  imparTotal := StrToInt(edt_Bilhete_Impar.Text);

  // loop para todas as linhas da stringlist (ListaDosNumerosSelecionados_Primos_LF)
  totalPrimo := 0;

  for primo := 0 to ListaDosNumerosSelecionados_Primos_LF.Count do
  begin
    totalPrimo := primo; // caso haja linhas ñ numéricas ele desconsidera e continua contando
  end;

  edt_Bilhete_Primo.Text := FloatToStr(totalPrimo);  // joguei o valor para o Edit

  primoTotal := StrToInt(edt_Bilhete_Primo.Text);

  // aqui estou verificando se a soma esta dentro do filtro definido.
  if (set_soma_inicial.value > 0) and (set_soma_final.value > 0) then
  begin
    if (somaTotal >= set_soma_inicial.value) and (somaTotal <= set_soma_final.value) then
    begin

    end
    else
    begin
      cor_inicial := 0;

      // aqui estou voltando o caption de 001 para 01
      for cor_inicial := 1 to 25 do
      begin
        NomeComp := 'selecao' + FormatFloat('000', cor_inicial);
        TPanel(FindComponent(NomeComp)).Caption :=
          FormatFloat('00', cor_inicial);
      end;

      cor_inicial := 0;

      // aqui estou voltando a cor para modo inicial
      for cor_inicial := 1 to 25 do
      begin
        NomeComp := 'selecao' + FormatFloat('000', cor_inicial);
        TPanel(FindComponent(NomeComp)).color := Color_Seletor_Normal;
      end;
      btn_Sortear_Bilhete.Click;
    end;
  end;