[Neftali [Germán.Estévez]]

Además de lo dicho y fijándome en este código:

Empezado por pgranados

Código Delphi [-]
   XMLaTabla(XMLDocLocal);
  // Mas cosas por acá............................

Yo añadiría lo siguiente:

Código Delphi [-]
Datamodule.FDQuery.DisableControls;
try
  for I := 0 to FileListBox.Items.Count-1 do begin    ...
    XMLaTabla(XMLDocLocal);
    // Mas cosas por acá..........................
    ...
finally
  Datamodule.FDQuery.EnableControls;
end;

Puede mejorar dependiendo de los componentes visuales que tengas asociados al Dataset (si los tienes). Lo mismo con otros que tengas asociados a componentes visuales (Grids,...)