diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 8b071761c2..15649e0f80 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -1715,6 +1715,8 @@ begin
     if not Assigned(SortProc) then SortProc:=@DefaultTreeViewSort;
     Sort(FItems, FCount, SortProc, true);
   end;
+  if (TreeView <> nil) then
+    Include(TreeView.FStates, tvsTopsNeedsUpdate);
   Result:=true;
 end;