[pgranados]

Gracias por sus comentarios, explicare mejor la situación:

Pasar un XML a la base de datos me demora 0.1 - 0.2 segundos c/u

el problema viene cuando son por ejemplo 7k XML, pues tardaremos como 10 minutos aprox, entonces necesito "congelar" o hacer algo para que el usuario no este dándole clic al sistema y que este cuelgue

Tengo un ciclo mas o menos así:

Código Delphi [-]
var UUID:string;
begin
   for I := 0 to FileListBox.Items.Count-1 do
   begin
         FormaMensaje.label.caption:= 'XML '+IntToStr(i)+' de '+ IntToStr(FileListBox.Items.Count-1);
         FormaMensaje.label.refresh;
         XMLDocLocal.LoadFromFile(NomArchivoXML);
         UUID:= ExtraerDatosParaNombreArchivo(XMLDocLocal); // Obtengo el identificador del XML UUID
         Datamodule.FDQuery.Open('SELECT UUID FROM TABLA WHERE UUID = '+#39+UUID+#39');
         if Datamodule.FDQuery.isEmpty then // No existe en la base de datos, debo de grabarlo
                XMLaTabla(XMLDocLocal);
         // Mas cosas por acá............................
   end;
end;