rtl: apply patch of Inoussa which fixes undefined result of UnicodeToLower and UnicodeToUpper (mantis #0024889)

git-svn-id: trunk@25315 -

rtl/objpas/unicodedata.pas

@@ -1070,8 +1070,8 @@ begin
     i := ((PtrUInt(pr) - PtrUInt(@r[1])) div SizeOf(UnicodeChar));
     SetLength(r,i);
     AResultString := r;
-    Result := 0;
   end;
+  Result := 0;
 end;
 
 function UnicodeToLower(
@@ -1136,8 +1136,8 @@ begin
     i := ((PtrUInt(pr) - PtrUInt(@r[1])) div SizeOf(UnicodeChar));
     SetLength(r,i);
     AResultString := r;
-    Result := 0;
   end;
+  Result := 0;
 end;
 
 //----------------------------------------------------------------------