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;
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;
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);
if (i mod 10 = 0) then
Application.ProcessMessages;
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;