diff --git a/designer/designer.pp b/designer/designer.pp
index c5dce12762..536d866cc8 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -3213,7 +3213,7 @@ var
   Count: integer;
   i: integer;
   CurControl: TControl;
-  R, R1: TRect;
+  R: TRect;
   P: TPoint;
 begin
   if (AWinControl=nil)