Contrôler ma réplication des données

Procedure ExportToExcel(aGrid : TDBGrid);//Export vers ma bd locale
Var
  I, J, nb_jrnl, nb_enreg: Integer;
Begin
with DM do
  BEGIN//1
  TListeTable.Close;
  TListeTable.Open;

  if not TListeTable.IsEmpty then
    begin//1.1
    TListeTable.First;
    nb_enreg := TListeTable.RecordCount;
    for j := 1 to nb_enreg do
      begin//2



        /////////////
                        //Préparation du fichier à télécharger
        TFichier.Active := False;
        TFichier.TableName := 'MON_EMPLACEMENT.'+TListeTable.FieldValues['code_table'];

        TFichier.Open;
                        //Fin Préparation du fichier à télécharger
        if not TFichier.IsEmpty then
          begin//3
          TFichier.First;
                          //Préparation de la table à charger
          TTampon.Close;
          TTampon.TableName := 'dbo.'+TListeTable.FieldValues['code_table'];

          TTampon.Open;
          if not TTampon.IsEmpty then
            begin
            TTampon.Close;
            TTampon.EmptyTable;
            TTampon.Open;
            end;
                          //Fin Préparation de la table à charger
          //Historiq_bebut

              TJournal.Close;
              TJournal.Open;
              if TJournal.IsEmpty then
                begin
                TJournal.Insert;
                nb_jrnl := 1;
                TJournal.FieldByName('num_journal').AsInteger := nb_jrnl;
                TJournal.FieldByName('nom_table').AsString := TListeTable.FieldValues['code_table'];
                TJournal.FieldByName('debut_chargement').AsDateTime := Date()+Time();
                TJournal.Post
                end
              else
                begin
                TJournal.Last;
                nb_jrnl := TJournal.FieldValues['num_journal'] + 1;
                TJournal.Insert;
                TJournal.FieldByName('num_journal').AsInteger := nb_jrnl;
                TJournal.FieldByName('debut_chargement').AsDateTime := Date()+Time();
                TJournal.FieldByName('nom_table').AsString := TListeTable.FieldValues['code_table'];
                TJournal.Post
                end;
          //Fin Historiq_bebut

          //Transaction
          if DM.dbLocal.InTransaction then DM.dbLocal.Rollback;
            DM.dbLocal.StartTransaction;
          try

            //Remplissage de la table concernée
            While Not TFichier.Eof Do
              Begin
                DM.TTampon.Insert;
                For I := 0 To TFichier.FieldCount - 1 Do
                  If TFichier.Fields[I].Visible Then  //A REVOIR POUR EVITER DE RATER LES CHAMPS DE MÊME TYPE
                  Begin
                    DM.TTampon.Fields[I].Value := TFichier.Fields[I].Value;
                  End;
                DM.TTampon.Post;
                TFichier.Next;
              end;
            //Fin Remplissage de la table concernée

          //Historique_Fin
          TJournal.Locate('num_journal',nb_jrnl,[]);
          TJournal.Edit;
          TJournal.FieldByName('fin_chargement').AsDateTime := Date()+Time();
          TJournal.FieldByName('reussit').AsBoolean := True;
          TJournal.Post;

          //Validation
          DM.dbLocal.Commit;
           except
            DM.dbLocal.Rollback;
           raise;
          end;//Transact

          end;//3

        ////////////


      TListeTable.Next;//Passage à la table suivante
      end//2
    end//1.1
  END//1

End;

Application.ProcessMessages;

FTelechargeur := TFTelechargeur.Create(Application);
FTelechargeur.btExportClick(Self);