Fórum TupdateSQL e delphi7 apagando registros de uma Query #559955

if (dteAtualizadosIni.Text <> '  /  /    ') and (dteAtualizadosFim.Text <> '  /  /    ') then
      begin
        DataModuleGeral.tbAndamentosProcessuais.IndexName := 'IDX_AND_PROC';
        DataModuleGeral.qryPesquisaProcessos.First;
        DataModuleGeral.tbAndamentosProcessuais.First;
        while not DataModuleGeral.qryPesquisaProcessos.Eof do
        begin
             DataModuleGeral.tbAndamentosProcessuais.Locate('NUMERO_PROCESSO_AUX',DataModuleGeral.qryPesquisaProcessosNUMERO_PROCESSO.AsString,[]);
          while (DataModuleGeral.qryPesquisaProcessosNUMERO_PROCESSO.AsString =
                 DataModuleGeral.tbAndamentosProcessuaisNUMERO_PROCESSO_AUX.AsString) do
          begin
            if (DataModuleGeral.tbAndamentosProcessuaisDATA.AsDateTime >= dteAtualizadosIni.Date) and
               (DataModuleGeral.tbAndamentosProcessuaisDATA.AsDateTime <= dteAtualizadosFim.Date) then
            begin
              lApaga := False;
              Break;
            end else
            begin
              DataModuleGeral.tbAndamentosProcessuais.Next;
              lApaga := True;
            end;
          end;
          if lApaga = True then
            DataModuleGeral.qryPesquisaProcessos.Delete
          else
            DataModuleGeral.qryPesquisaProcessos.Next;
        end;
        DataModuleGeral.tbAndamentosProcessuais.IndexName := '';
        DataModuleGeral.tbAndamentosProcessuais.IndexFieldNames := 'CODIGO_ANDAMENTO';
      end;