[firebase-br] Backup Restore no Firebird

[Rodrigo]

Bom dia a todos....

Estou usando o IBBackupService e o IBRestoreService para realizar os Backups 
da minha aplicação.

O problema maior que to tendo é que ele faz o backup e fecha o componente, 
mas na realizada o arquivo ainda nao
esta formado.

Ex.


Faço Backup.
with IBBackupService1 do
     begin
     BackupFile.Clear;
     Attach;
     DatabaseName := 'C:\Comercial\DMLoja\Backup\Dados1.fdb';
     BackupFile.Add('C:\Comercial\DMLoja\Backup\Compact.fdb');
     Active := True;
     ServiceStart;
     Active := false;
     end;

Faço Restore.                // opa, da mensagem de erro... o Backup 
anterior ainda nao terminou mas passou...
with IBRestoreService1 do
     begin
     BackupFile.Clear;
     DataBaseName.Clear;
     Attach;
     Options := [Replace];
     DatabaseName.Add(PathOriginal);
     BackupFile.Add('C:\Comercial\DMLoja\Backup\Compact.fdb');
     Active := True;
     ServiceStart;
     Active := false;
     end;


Como faço para que o sistema só passe a realizar o Restore quando realmente 
o Backup estiver totalmente terminado?

Agradecido,

Rodrigo