[Resolvido] backup firebird gera erro (restaurar)

Preciso de ajuda na hora de restaurar o backup, gera erro dizendo que nao pode ser restaurado pois o banco esta em uso. A copia do backup ele esta fazendo corretamente.

Peguei este projeto de backup neste link:

http://uploaddearquivos.com.br/download/Backup.zip

Usando este codigo abaixo no meu projeto

procedure TFormPrincipal.FormClose(Sender: TObject;
 var Action: TCloseAction);

BEGIN //pergunta ao encerrar o aplicativo {begin

 messagebeep(16);
 if messagebox(formPrincipal.Handle,'Deseja realmente encerrar'#13'o programa? ','AgenTel - Sair',mb_yesno+MB_ICONQUESTION)= idno then
 abort;
 end;}

 begin
 messagebeep(16);
 if messagebox(formPrincipal.Handle,'Deseja realizar uma Copia de'#13'Seguranca dos registros cadastrados? ','AgenTel - Sair',mb_yesno+MB_ICONQUESTION)= idno then
 begin
 //FormPrincipal.Close;
 Application.Terminate;
 end
 else
 begin
 FormCopiaSeg := TFormCopiaSeg.create ( application );
 try
 FormCopiaSeg.ShowModal
 finally
 FormCopiaSeg.Release;
 FormCopiaSeg := nil;
 end;
 DTM.IBDagentel.Close;
 //FormPrincipal.Close;
 end;
 //else
 //Close;
 end;

END;

Ao fechar a aplicacao ele chama a formBackup ate ai esta tudo bem.

Quando vou restaurar o backup gera o erro:

EIBInterbaseerror could not drop database caminho do banco de dados (database might be in use)

Imagino eu que o banco deve estar sendo utilizado por isso gera o erro e nao deixa restaurar,

o que devo fazer? Aguardo resposta. Obrigado.