Saber cuando termina una consulta

[zurech]

Hola, estoy haciendo un programa en el cual necesito poder hacer backups de una BD y restaurarlos, el problema existe a la hora de restaurar, que yo quiero que no te muestre el mensaje de restaurada hasta que no termine, y el programa me lo muestra antes de terminar, por lo que si el usuario es un poco impaciente se puede cargar media BD, os pongo el codigo

Código Delphi [-]
  Archivo:='C:\backup\Back'+DataBackUp.DataSet.FieldByName('id').AsString+'.sql';
   if (FileExists(Archivo)) then
     begin
       QRestaurar.Close;
       QRestaurar.SQL.LoadFromFile(Archivo);
       QRestaurar.ExecSQL(true);
       
       // Lo siguiente no lo deberia ejecutar hasta que no terminara de
       // restaurar la BD
       showmessage('BD Restaurada');
     end;

Gracias de antemano

[lucasarts_18]

Hola:

Tienes un boton o algo que pueda impedir que el usuario detenga la ejecución.?

[zurech]

Perdon, no era ese el fallo, la consulta se ejecutaba completa, pero el problema lo tenia que el mysqldump no pillaba bien los blob y por eso parecia que la consulta se detenia, cuando en realidad era que al generear el archivo .sql despues del primer blob ya no habia continuado.

Gracias de todos modos