No puedo hacer restore de una bdd firebird en delphi

[Gaby123]

hola.
tengo una aplicación con una base de datos.fdb y la uso con el componente Tibdatabase en delphi 7.
desde delphi le hago un backup con un tibservicebackup y lo hace perfecto pero si trato de hacerle el restore con el tibrestoreservice, a pesar de que desconecto la base de datos, y desactivo el ibtransaction me dice un error: " EIBInterBaseError with message 'lock time-out on wait transaction' object c:\...\basededatos.fdb is in use could not drop database c:\...\basededatos.fdb (database migth be in use)"
este es el codigo:

Código Delphi [-]
    
    basededatos.close;
    basededatos.Connected := false;
    IBTransaction1.Active:=false;
      try
        srvRestore.Attach;
        if srvRestore.Active = true then
          srvRestore.BackupFile.CLEAR;
        srvRestore.BackupFile.add(dbdestino);
        srvRestore.DatabaseName.clear;
        srvRestore.DatabaseName.add(dbcopiar);
        try
          srvRestore.ServiceStart;
//     ShowMessage('Archivo restaurado con éxito '+FormatDateTime('dd-mm-yyyy',date)+' '+timetostr(time));
        except
  //   ShowMessage('ERROR AL RESPALDAR LA BASE DE DATOS');
        end;
    Application.Terminate;

No se como hacer para q libere la bdd, espero que me puedan ayudar.
Gracias