* use sametext instead of converting case

rtl/objpas/classes/writer.inc

@@ -1076,7 +1076,7 @@ begin
             if (AncestorObj<> ObjValue) and
              (TComponent(AncestorObj).Owner = FRootAncestor) and
              (TComponent(ObjValue).Owner = Root) and
-             (UpperCase(TComponent(AncestorObj).Name) = UpperCase(TComponent(ObjValue).Name)) then
+             (SameText(TComponent(AncestorObj).Name,TComponent(ObjValue).Name)) then
             begin
               // different components, but with the same name
               // treat it like an override
@@ -1215,7 +1215,7 @@ begin
               if (AncestorObj<> Component) and
                (TComponent(AncestorObj).Owner = FRootAncestor) and
                (Component.Owner = Root) and
-               (UpperCase(TComponent(AncestorObj).Name) = UpperCase(Component.Name)) then
+               (SameText(TComponent(AncestorObj).Name,Component.Name)) then
               begin
                 // different components, but with the same name
                 // treat it like an override

rtl/objpas/sysutils/fina.inc

@@ -331,7 +331,7 @@ Var Source, Dest   : PathStr;
 Const OneLevelBack = '..'+DirectorySeparator;
 
 begin
-  If Uppercase(ExtractFileDrive(BaseName))<>Uppercase(ExtractFileDrive(DestName)) Then
+  If not SameText(ExtractFileDrive(BaseName),ExtractFileDrive(DestName)) Then
     begin
     Result:=DestName;
     exit;