diff --git a/source/usermanager.pas b/source/usermanager.pas
index 1146c8a8..a8118528 100644
--- a/source/usermanager.pas
+++ b/source/usermanager.pas
@@ -508,14 +508,17 @@ end;
 procedure TUserManagerForm.btnDeleteObjectClick(Sender: TObject);
 var
   Node: PVirtualNode;
+  FocusIndex: Cardinal;
 begin
   case treeObjects.GetNodeLevel(treeObjects.FocusedNode) of
     0: Node := treeObjects.FocusedNode;
     1: Node := treeObjects.FocusedNode.Parent;
     else Raise Exception.Create(SUnhandledTreeLevel);
   end;
+  FocusIndex := Node.Index;
   Users[listUsers.FocusedNode.Index].Privileges.DeletePrivilege(Node.Index);
   treeObjects.ReInitNode(Node, True);
+  SelectNode(treeObjects, FocusIndex-1);
   treeObjects.Invalidate;
 end;