diff --git a/components/lazutils/laz_avl_tree.pp b/components/lazutils/laz_avl_tree.pp
index 2d3110154e..57e666d5fc 100644
--- a/components/lazutils/laz_avl_tree.pp
+++ b/components/lazutils/laz_avl_tree.pp
@@ -1154,7 +1154,7 @@ begin
   r := Root;
   FRoot := nil; // Prevent any being-destroyed object from removing its node.
   try
-    FreeNodeData(Root);
+    FreeNodeData(r);
   finally
     FRoot := r;
   end;