می تونی از این استفاده کنی :


try
if SaveDialog1.Execute then
ADOConnection1.Execute('backup database Pubs to disk='''+SaveDialog1.FileName+'''');
except
MessageDlg('عملیات پشتیبان گیری با شکست مواجه شد',mtError,[mbOK],0);
end;<span dir=ltr></span>