Bom dia amigos do grupo, antes eu tinha um trecho no meu codigo para atualizar a base de dados que era assim, alguém pode me dar uma luz de como ficaria?

raosistemas · 5 Novembro, 2021

 lote      := notasnfs_lote.AsString;
  ACBrNFSe1.ConsultarLoteRps(Protocolo, Lote);
  ChecarResposta(tmConsultarLote);
  MemoDados.Lines.Clear;

  for i := 0 to ACBrNFSe1.NotasFiscais.Count -1 do
  begin

    if acbrnfse1.NotasFiscais.Items[i].NFSe.Status = srnormal then begin
      MemoDados.Lines.Add('Status Nfe      : Normal');
      sstat:='N';
    end else begin
      MemoDados.Lines.Add('Status Nfe      : Cancelada');
      sstat:='C';
    end;

    MemoDados.Lines.Add('RPS Numero......: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero);
    MemoDados.Lines.Add('Série RPS.......: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Serie);
    MemoDados.Lines.Add('NFS-e Numero....: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero);
    MemoDados.Lines.Add('Cod. Verificacao: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao);
    MemoDados.Lines.Add('Nome do arquivo.: ' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq);
    memodados.Lines.Add('----------------------------------------------------------------------');

    if notas.Locate('codnota',ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero,[]) then begin
        notas.Edit;
        notasnfs_numero.Value            := ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero.ToInteger();
        notasnfs_codigoverificacao.value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao;
        notasnfs_arquivo.Value           := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe() + '\' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq;
        notasnfs_cstat.Value             := sstat;
//        notasnfs_lote.Value              := ACBrNFSe1.NotasFiscais.Items[i].NFSe.NumeroLote.ToInteger;
        notasnfs_dhrecebimento.Value     := ACBrNFSe1.NotasFiscais.Items[i].NFSe.DataEmissao;
        notas.Post;
        geralink();
    end;

  end;
end;

após a consulta pelo lote, que podia retornar de 1 a x notas... eu atualizava o banco de dados dessa forma, como posso fazer agora?

FOR i:=0 to...