diff --git a/components/lazutils/laz2_dom.pas b/components/lazutils/laz2_dom.pas
index bb9991390d..3842ea7e86 100644
--- a/components/lazutils/laz2_dom.pas
+++ b/components/lazutils/laz2_dom.pas
@@ -339,7 +339,7 @@ type
 //   NodeList
 // -------------------------------------------------------
 
-  TFilterResult = (frFalse, frNorecurseFalse, frTrue, frNorecurseTrue);
+  TFilterResult = (frFalse, frNoRecurseFalse, frTrue, frNoRecurseTrue);
 
   TDOMNodeList = class(TObject)
   protected
@@ -1901,7 +1901,7 @@ end;
 function TDOMNodeList.NodeFilter(aNode: TDOMNode): TFilterResult;
 begin
 // accept all nodes but don't allow recursion
-  Result := frNorecurseTrue;
+  Result := frNoRecurseTrue;
 end;
 
 procedure TDOMNodeList.BuildList;
@@ -1917,7 +1917,7 @@ begin
   while Assigned(current) do
   begin
     res := NodeFilter(current);
-    if res in [frTrue, frNorecurseTrue] then
+    if res in [frTrue, frNoRecurseTrue] then
       FList.Add(current);
 
     next := nil;