diff --git a/lcl/interfaces/qt/qtwscontrols.pp b/lcl/interfaces/qt/qtwscontrols.pp
index b88deb920b..d1624ce427 100644
--- a/lcl/interfaces/qt/qtwscontrols.pp
+++ b/lcl/interfaces/qt/qtwscontrols.pp
@@ -464,7 +464,7 @@ begin
   end;
 
   {$IFDEF QTSCROLLABLEFORMS}
-  if (AWinControl.FCompStyle <> csForm) and Assigned(AWinControl.Parent) and
+  if Assigned(AWinControl.Parent) and
     (AWinControl.Parent.FCompStyle = csForm) then
   begin
     AForm := TCustomForm(AWinControl.Parent);