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