From 16752bdf6ed63677a035f53163394bc7b0b354b5 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:40:51 +0000
Subject: [PATCH] MG: fixed removing controls

git-svn-id: trunk@2067 -
---
 designer/designer.pp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index e745394159..9fcadbb659 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -292,10 +292,9 @@ Begin
         // the component list of the form has changed
         // -> restart the search
         i:=AWinControl.ControlCount-1;
-        continue;
-      end;
+      end else
+        dec(i);
     end;
-    dec(i);
   end;
   // remove component
   if Assigned(FOnRemoveComponent) then