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); Datamodule.FDQuery.Open('SELECT UUID FROM TABLA WHERE UUID = '+#39+UUID+#39');
if Datamodule.FDQuery.isEmpty then XMLaTabla(XMLDocLocal);
end;
end;