From 3f79c478479325355dfbad2dbf77bdbfc2b4897e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 16 May 2006 11:17:48 +0000
Subject: [PATCH] Merged revisions 3545 via svnmerge from
 svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r3545 | michael | 2006-05-16 13:14:09 +0200 (Tue, 16 May 2006) | 1 line

  + FindComponent should be cse insensitive
........

git-svn-id: branches/fixes_2_0@3546 -
---
 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 52f22a7753..daef8eb600 100644
--- a/rtl/objpas/classes/compon.inc
+++ b/rtl/objpas/classes/compon.inc
@@ -461,7 +461,7 @@ begin
   Result:=Nil;
   If (AName='') or Not assigned(FComponents) then exit;
   For i:=0 to FComponents.Count-1 do
-    if TComponent(FComponents[I]).Name=AName then
+    if (CompareText(TComponent(FComponents[I]).Name,AName)=0) then
       begin
       Result:=TComponent(FComponents.Items[I]);
       exit;