Fórum Backup/Restauracao do B.D. (Interbase) em runtime??? #255003

Boa tarde doutores(as),

estou enfrentando um probleminha, onde, na restauracao do banco o delphi me retorna uma mensagem dizendo q o banco esta em uso, mas eu fecho a conexao antes do procedimento, qual seria a solucao ?...segue as rotinas:

OBS:utilizo as services api´s do banco (interbase admin)

procedure TFBackup.LBackupClick(Sender: TObject);
begin
with IBBackup do
begin
ServerName := ´´;
LoginPrompt := False;
Params.Add(´user_name=sysdba´);
Params.Add(´password=masterkey´);
Active := True;
try
Verbose := True;
Options := [NonTransportable, IgnoreLimbo];
DatabaseName := ´c:\fidelizando\bd\fidelizando.gdb´;
BackupFile.Clear;
BackupFile.Add(´c:\fidelizando\backup\bd\fidelizando.gbk´);

ServiceStart;
finally
Active := False;
end;
end;
messagedlg(´Backup do Banco de Dados efetuado com sucesso!´,mtInformation,[mbOK],0);
end;

procedure TFBackup.LRestauraClick(Sender: TObject);
begin
[b:77d08810a2]DMDados.IBDFidelizando.Close;[/b:77d08810a2]
with IBRestore do
begin
ServerName := ´´;
LoginPrompt := False;
Params.Add(´user_name=sysdba´);
Params.Add(´password=masterkey´);
Active := True;
try
Verbose := True;
Options := [Replace, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
DatabaseName.Add(DMDados.IBDFidelizando.DatabaseName);
BackupFile.Clear;
BackupFile.Add(´c:\fidelizando\backup\bd\fidelizando.gbk´);
ServiceStart;
finally
Active := False;
end;
messagedlg(´Restauração do Banco de Dados efetuado com sucesso!´,mtInformation,[mbOK],0);
end;
end;