diff --git a/designer/designer.pp b/designer/designer.pp
index a613642e38..42798a35fa 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -3873,8 +3873,8 @@ var
     while i>=0 do
     begin
       CurSelected:=ControlSelection[i];
-      if CurSelected.IsTWinControl
-      and (TWinControl(CurSelected.Persistent).Owner=LookupRoot)
+      if CurSelected.IsTControl
+      and (TControl(CurSelected.Persistent).Owner=LookupRoot)
       then
         // this one can be moved
         break;