try 
  QryTmp.ExecSql; 
except 
  on e:Exception do
  begin
  Application.MessageBox(PChar('数据库连接失败...请查看数据库连接是否正常...！错误信息：'+e.Message),PChar('警告'),MB_OK +      MB_ICONWARNING); 
  end;
end;

function ExecSQL(Str:String):string; //返回成功与否 自己改改 写成过程也可以
   ADOset:TADOQuery;
begin
   ADOset:=TADOQuery.Create(Nil);
   ADOset.Connection:=FrmDM.adoDB;
   With ADOset do begin
       Close;
       SQL.Clear;
       SQL.Add(Str);
   end;
   try
    ADOset.ExecSQL ;
    Result:='成功!'
   except
    Result:='失败!'
    Application.MessageBox(PChar('数据库连接失败...请查看数据库连接是否正常...！'),PChar('警告'),MB_OK +      MB_ICONWARNING); 
   end;
end;