%!s(int64=2) %!d(string=hai) anos · 4bddf12657
--- a/rtl/inc/isotmp.inc
+++ b/rtl/inc/isotmp.inc
@@ -24,7 +24,7 @@
 
				         unique : Boolean;
			
 
				       begin
			
 
				         InternalChangeCase := S;
			
 
				-        if Length(InternalChangeCase) then
			
 
				+        if Length(InternalChangeCase)=0 then
			
 
				           exit;
			
 
				         unique := false;
			
 
				         p := PWideChar(InternalChangeCase);