Fórum Lentidão no comando Locate delphi 7 + Firebird 2.1 #560023

      DMGeral.qryPesquisaProcessos.Open;
      if ((dteAtualizadosIni.Text   <> '  /  /    ') and (dteAtualizadosFim.Text   <> '  /  /    ')) or
         ((dteDataIniFaturavel.Text <> '  /  /    ') and (dteDataFimFaturavel.Text <> '  /  /    ')) then
      begin
        DMGeral.tbAndamentosProcessuais.IndexFieldNames := 'NUMERO_PROCESSO';
        DMGeral.qryPesquisaProcessos.First;
        while not DMGeral.qryPesquisaProcessos.Eof do
        begin
          DMGeral.tbAndamentosProcessuais.Locate('NUMERO_PROCESSO',DMGeral.qryPesquisaProcessosNUMERO_PROCESSO_ORI.AsString,[]); // Muito lento
          while (DMGeral.qryPesquisaProcessosNUMERO_PROCESSO_ORI.AsString =
                 DMGeral.tbAndamentosProcessuaisNUMERO_PROCESSO.AsString) do
          begin
            if ((dteAtualizadosIni.Text   <> '  /  /    ') and (dteAtualizadosFim.Text   <> '  /  /    ')) and
               ((DMGeral.tbAndamentosProcessuaisDATA.AsDateTime >= dteAtualizadosIni.Date) and
                (DMGeral.tbAndamentosProcessuaisDATA.AsDateTime <= dteAtualizadosFim.Date)) then
            begin
              lApaga := False;
              Break;
            end else
            begin
              DMGeral.tbAndamentosProcessuais.Next; // As vezes fica lento dependendo do index 
              lApaga := True;
            end;
          end;
          // Apaga da Query o que não está dentro do filtro de pesquisa
          if lApaga = True then
            DMGeral.qryPesquisaProcessos.Delete
          else
            DMGeral.qryPesquisaProcessos.Next;
        end;
        DMGeral.tbAndamentosProcessuais.IndexFieldNames := 'CODIGO_ANDAMENTO';
      end;