Delphi和sql系统备份

procedure TForm1.Button1Click(Sender: TObject);
var
  Path:string;
begin
  form1.SaveDialog1.Filter:='所有文件(*.*)|*.*';
  form1.SaveDialog1.Title:='选择备份路径和文件名';
  if form1.SaveDialog1.Execute=true then
    begin
      Path:=form1.SaveDialog1.FileName;
    end;
  if Path<>'' then
    begin
      with form2.ADOQuery1 do
        begin
          try
            screen.Cursor:=crHourGlass;
            close;
            sql.Clear;
            sql.Add('backup database fisbase to disk='+''''+Path+'''');
            execsql;
            screen.Cursor:=crDefault;
            application.MessageBox('数据库备份成功完成','数据库备份',0+mb_iconinformation);
          except
            screen.Cursor:=crDefault;
            application.MessageBox('数据库备份失败！请检查备份路径或网络状态','数据库备份',0+mb_iconinformation);
            exit;
          end;
        end;
    end;
end;