Error con Restore

[Ledian_Fdez]

Hola familia delphinos:

Estoy desarrollando una aplicación en Delphi7 y SQL Server 2000.
Con este codigo intento restaurar la base de datos.

Código Delphi [-]
procedure TPrincipalForm.RestaurarBD1Click(Sender: TObject);
var
 Camino : String;
begin
 Camino := 'c:\SalvaSAF';
 try
  QrySalvRest.SQL.Clear;
  QrySalvRest.SQL.Add('Restore database SAF');
  QrySalvRest.SQL.Add('from disk = '+ QuotedStr(Camino));
  QrySalvRest.SQL.Add('With Replace');
  QrySalvRest.ExecSQL;
  Application.MessageBox('La restaura terminó satisfactoriamente.','Salvar BD', MB_ICONINFORMATION);
 except
  Application.MessageBox('No se pudo restaurar la base de datos.','Salvar BD', MB_ICONERROR);
 end;
end;

Este es el error que me lanza:

Exclusive access could not be obtained because the database is in use