Не восстанавливается база данных SQL Server 2005 + Delphi 7

procedure TForm1.BitB_BekClick(Sender: TObject);
begin
   if SaveDialogFullBD.Execute then
 begin
    Screen.Cursor:=crHandPoint;
    with Module.FullBDQuery do begin
      Close;
       SQL.Clear;
        SQL.Add('backup database Имя_БД to disk='''+SaveDialogFullBD.FileName+''' ');
       ExecSQL;
      Close;
    end;
    Screen.Cursor:=crDefault;
    Application.MessageBox(PChar('Резервное копирование сохранено успешно!'),'Архив', MB_ICONEXCLAMATION+MB_OK);
  end;

procedure TForm1.BitB_RestorClick(Sender: TObject);
var
  S: String;
begin
  if OpenDialogFullBD.Execute then
   begin
     Screen.Cursor:=crHandPoint;
      Module.DbConn.Connected:=False;
        S := 'ALTER DATABASE Имя_БД SET SINGLE_USER WITH ROLLBACK IMMEDIATE; use master;  drop database Имя_БД;'+
             'restore database Имя_БД from disk = ''' + OpenDialogFullBD.filename + '''; ALTER DATABASE Имя_БД SET MULTI_USER ';
        Module.DbConn.Execute(S);
       Module.DbConn.Connected:=True;
      Screen.Cursor:=crDefault;
      Application.MessageBox(PChar('Восстановление завершено успешно!'+chr(13)+'Следует заново войти в программу!'),'Архив', MB_ICONEXCLAMATION+MB_OK);
    Application.Terminate;
  end;

procedure TfAdmin.SpeedButton14Click(Sender: TObject);
Var i: Integer;
    s1, s2: String;
begin
Forms.Screen.Cursor := 5;
If DirPath1.Text = '' Then Begin
Application.MessageBox(PChar('Не указан путь!'),'Предупреждение',48);
DirPath1.Color := RGB(250,92,92);
Forms.Screen.Cursor := crDefault;
Exit;
End;
If DbEditEh2.Text = '' Then Begin
Application.MessageBox(PChar('Имя BACKUP пустое!'),'Предупреждение',48);
DBEditEh2.Color := RGB(250,92,92);
DBEditEh2.SetFocus;
Forms.Screen.Cursor := crDefault;
Exit;
End;
Try
DMS_DATA.qM1_SelectCountStat.Close;
DMS_DATA.qM1_SelectCountStat.SQL.Text := 'INSERT INTO tSTATIC VALUES(' + QuotedStr(IntToStr(Statistic.PAC1)) + ',' +  QuotedStr(IntToStr(Statistic.PAC2)) + ',' + QuotedStr(IntToStr(Statistic.USL1)) + ',' + QuotedStr(IntToStr(Statistic.USL2)) + ',' + QuotedStr(IntToStr(Statistic.USL3)) + ',' + QuotedStr(FormatDateTime('yyyymmdd hh:nn:ss',Date() + Time())) + ',' + IntToStr(1) + ',' + QuotedStr(DbEditEh2.Text) + ')';
DMS_DATA.qM1_SelectCountStat.ExecSQL;
except
on e: exception do
 begin
   Forms.Screen.Cursor := crDefault;
   Application.MessageBox(Pchar('При добавлении записи в таблицу возникла ошибка: '+e.message),'Ошибка',48);
 end;
end;
s1 := DirPath1.Text;
For i := 1 To Length(s1) do
  If s1[i] = ':' Then s2 := s2 Else
    If s1[i] = '\' Then s2 := s2 + '_' Else s2 := s2 + s1[i];
Try
DMS_DATA.qM1_backUpDb.Close;
DMS_DATA.qM1_backUpDb.SQL.Text := ' BACKUP DATABASE ' + BASE + ' ' +
'TO DISK = ' + QuotedStr(DirPath1.Text + '\' + DbEditEh2.Text) + ' ' +
'WITH FORMAT, ' +
'MEDIANAME = ' + QuotedStr(s2) + ', ' +
'NAME = ' + QuotedStr('Full Backup of ' + BASE) + '; ';
DMS_DATA.qM1_backUpDb.ExecSQL;
except
on e: exception do
 begin
   Forms.Screen.Cursor := crDefault;
   Application.MessageBox(Pchar('При BACKUP DATABASE произошла ошибка: '+e.message),'Ошибка',48);
 end;
end;
If DBCheckBoxEh1.Checked Then If FileExists(PATH  + '\' + DbEditEh2.Text) Then
Begin
ShellExecute(Handle,'open',PChar(PATH + '\'),nil,nil,SW_SHOW);
End;
Forms.Screen.Cursor := crDefault;
end;
 
end;
procedure TfAdmin.SpeedButton15Click(Sender: TObject);
Var DirPath: String;
begin
Forms.Screen.Cursor := 5;
If FE2.FileName = '' Then Begin
Application.MessageBox(PChar('Выберите файл!'),'Предупреждение',48);
FE2.Color := RGB(250,92,92);
Forms.Screen.Cursor := crDefault;
Exit;
End;
If DbEditEh3.Text = '' Then Begin
Application.MessageBox(PChar('Введите имя БД!'),'Предупреждение',48);
DbEditEh3.Color := RGB(250,92,92);
Forms.Screen.Cursor := crDefault;
Exit;
End;
If MessageBox(Handle,'Вы действительно хотите восстановить резервную копию БД?','Восстановление БД',mb_YesNo or mb_iconquestion) = 6 Then Begin
DirPath := FE2.FileName;
Try
DMS_DATA.qM1_backUpDb.Close;
DMS_DATA.qM1_backUpDb.SQL.Text := 'RESTORE DATABASE [' + DbEditEh3.Text + '] FROM  DISK = N' + QuotedStr(DirPath) + ' WITH  FILE = 1,  MOVE N' + QuotedStr('PS') + ' TO N' + QuotedStr('C:\PROJECTS\Database\PS\' + DbEditEh3.Text + '.mdf') + ',  MOVE N' + QuotedStr('PS_log') + ' TO N' + QuotedStr('C:\PROJECTS\Database\PS\' + DbEditEh3.Text + '_log.ldf') + ',  NOUNLOAD,  STATS = 10 ';
DMS_DATA.qM1_backUpDb.ExecSQL;
except
on e: exception do
 begin
   Forms.Screen.Cursor := crDefault;
   Application.MessageBox(Pchar('Произошла ошибка при восстановлении БД из BAK файла: '+e.message),'Ошибка',48);
   Exit;
 end;
end;
Application.MessageBox(Pchar('База ' + DbEditEh3.Text + ' успешно восстановлена!'),'Выполнено',64);
End;
Forms.Screen.Cursor := crDefault;
end;