try
with Query do
begin
SQL.Clear;
SQL.Add('delete from grocs');
SQL.Add('where (nombre like :nombre)');
ParamByName('nombre').AsString := '1';
Execute;
end;
ShowMessage('La actividad '+DBLCBseleccion.Text+' ha sido eliminada');
except
on E:EMySqlException do showmessage('La actividad empresarial no puede ser eleminada');
end;