procedure TBackUp_form.SpeedButton4Click(Sender: TObject);
var BackupDate, yy, mm, dd : string;
begin
   OpenDialog1.Execute;
   BackupDate := DateToStr(now);
   yy := copy(BackupDate, 1, 4);
   mm := copy(BackupDate, 6, 2);
   dd := copy(BackupDate, 9, 2);
   BackupDate := yy + mm + dd;
   location := ExtractFilePath(Opendialog1.FileName);
   e_location.text := location + backupDate + '_Backup.bak';

end;


procedure TBackUp_form.SpeedButton2Click(Sender: TObject);
begin
   with ADOQuery1 Do
       begin
       close;
       SQL.CLEAR;
       SQL.ADD('backup database donwoori to disk= '''+e_location.text+'''');
       execsql;
       end;

end;

이렇게 DB를 backup 받고
-------------------------------------------------
procedure TRestore_form.SpeedButton2Click(Sender: TObject);
begin
   with ADOQuery1 Do
       begin
       close;
       SQL.CLEAR;
       SQL.ADD('restore database donwoori from disk= '''+e_location.text+'''');
       execsql;
       end;

end;

이렇게 Restore 하려는데 에러가 나네요...