From 68200e1606e8af62a47173bb1e8312558d86ce8e Mon Sep 17 00:00:00 2001 From: michael Date: Wed, 17 May 2006 06:17:10 +0000 Subject: [PATCH] + Merged revision 3550 git-svn-id: branches/fixes_2_0@3551 - --- rtl/objpas/classes/compon.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rtl/objpas/classes/compon.inc b/rtl/objpas/classes/compon.inc index daef8eb600..b735722995 100644 --- a/rtl/objpas/classes/compon.inc +++ b/rtl/objpas/classes/compon.inc @@ -340,7 +340,7 @@ Procedure TComponent.ValidateRename(AComponent: TComponent; begin //!! This contradicts the Delphi manual. - If (AComponent<>Nil) and (CurName<>NewName) and (AComponent.Owner = Self) and + If (AComponent<>Nil) and (CompareText(CurName,NewName)<>0) and (AComponent.Owner = Self) and (FindComponent(NewName)<>Nil) then raise EComponentError.Createfmt(SDuplicateName,[newname]); If (csDesigning in FComponentState) and (FOwner<>Nil) then