Problemas com Dbgrid

Ola pessoal tudo tranquilo?

Estou tendo um problema, estou fazendo um programa para calculo de juros e tenho 2 dbgrids num form, estou tentando transf. as informações de uma tabela para outra e após gerar um relatório do cliente.

Então é o seguinte, quando abro o programa ele funciona normalmente, só que quando clico no botão para passar as nfs. selecionadas de uma tabela para outra ela não mostra a informação no segundo dbgrid. O código esta funcionando pois olhando no Access e passa todas as Nfs. escolhidas, mas o sistema não mostra em tempo de execução. Mas caso eu feche o programa e abra novamente la esta o dbgrid mostrando as NFs.

O que pode ser? Segue abaixo código.

CODE
procedure Tfrmjuros.BitBtn2Click(Sender: TObject);
var

Idx :Integer;

begin

if DBGrid1.SelectedRows.Count > 0 then

begin

for Idx := 0 to DBGrid1.SelectedRows.Count-1 do

begin

// posiciona o dataset de origem no "n" registro selecionado

 dm.ADOQueryjurosSEI.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[idx]));

 

 // move os dados do dataset de origem para destino aqui

 dm.ADOQueryjurossist.Append;

 dm.ADOQueryjurossistnum_fatura.text := dm.ADOQueryjurosSEInum_fatura.text;

 dm.ADOQueryjurossistnum_duplic.text := dm.ADOQueryjurosSEInum_duplic.text;

 dm.ADOQueryjurossistnum_estxxx.text := dm.ADOQueryjurosSEInum_estxxx.text;

 dm.ADOQueryjurossistdat_emissa.text := dm.ADOQueryjurosSEIdat_emissa.text;

 dm.ADOQueryjurossistdat_pagato.asstring := dm.ADOQueryjurosSEIdat_pagato.asstring;

 dm.ADOQueryjurossisttxt_situac.text := dm.ADOQueryjurosSEItxt_situac.text;

 dm.ADOQueryjurossistnum_valapa.text := dm.ADOQueryjurosSEInum_valapa.text;

 dm.ADOQueryjurossisttxt_bancoc.text := dm.ADOQueryjurosSEItxt_bancoc.text;

 Dm.ADOQueryjurossist.Post;

 

 

 end;

 end;

end;

Se poderem me ajudar.

Obrigado

Sergio