Como evaluo si se producira un error para poder antes mostrar un mensaje

[karaoke]

Hola a todos, necesito ayuda para lo siguiente:

tengo una aplicación multiusuario donde uso mysql, cada usuario accede con su usuario y contraseña y cada uno de ellos tiene diferentes permisos. Lo que necesito es que cuando un usuario intente por ejemplo modificar un registro sobre una tabla para la cual no tiene permiso, en lugar de que me aparezca el mensaje de error de delphi que dice:"SQL Error: SELECT command denied for user xx@yy to table 'tareas'", yo pueda colocar un mensaje alertando al usuario que no tiene permiso para realizar esa operación.

Espero haberme explicado, y si alguien sabe y puede ayudarme, se lo agradecería.

Muchas gracias....

Saludos..

[[Caral]]

Hola
Este es un pedazo de codigo para que mas o menos te des cuenta de como se hace lo que necesitas.

procedure TFOrdProd.Button5Click(Sender: TObject);
begin
    If MessageDlg('¿Está seguro que desea eliminar la pieza # '+QOrdenProdCompraCodParte.AsString+' de la orden ',mtConfirmation,[mbYes,mbNo],0) = mrYes then
   begin
      DataModule1.AC1.BeginTrans;
      try
         QTemp.SQL.Text := 'Delete * from OrdenProdCompra where Numero = '+QOrdenProdCompraNumero.AsString;
         QTemp.ExecSQL;
         DataModule1.AC1.CommitTrans;
      except
         on E:Exception do
         begin
            DataModule1.AC1.RollbackTrans;
            MessageDlg('Se ha producido un error, por favor contacte al administrador.',mtError,[mbok],9);
         end;//on
      end; //try
      QOrdenProdCompra.Close;
      QOrdenProdCompra.Open;
   end;
end;

Saludos