diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 08f3c922fd..64ad2969e1 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -672,7 +672,7 @@ begin
   repeat
     Result := TheControl.Enabled;
     TheControl := TheControl.Parent;
-  until (TheControl = nil) or (not Result) or (TheControl.Parent = nil);
+  until (TheControl = nil) or (not Result);
 end;
 
 function TControl.FormIsUpdating: boolean;