¿Cómo evitar que programa se congele?

[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;

[[duilioisola]]

Entiendo que FormaMesaje es un Form que contiene un label en el que muestras el progreso.
Solo debes cambiar esta línea.

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);

         Application.ProcessMessages; // 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;

A veces, el procesar los mensajes de Windows incorpora una demora grande por lo que quizás quieras realizar este proceso cada n pasadas.

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);

          // Solo refresca 1 de cada 10 veces.
          if (i mod 10 = 0) then
             Application.ProcessMessages; // 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;

[Casimiro Noteví]

Justo lo que te han contestado

De toda formas, también puedes deshabilitar el botón cuando lo pulsen, así no podrán darle más veces.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled:=False;
  //
  ...
end;

[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,...)