diff --git a/rtl/java/astrings.inc b/rtl/java/astrings.inc
index 0b497634ba..8a6a6bcc58 100644
--- a/rtl/java/astrings.inc
+++ b/rtl/java/astrings.inc
@@ -579,7 +579,7 @@ end;
 { pos(c: char; const s: shortstring) also exists, so otherwise   }
 { using pos(char,pchar) will always call the shortstring version }
 { (exact match for first argument), also with $h+ (JM)           }
-Function Pos (c : Char; Const s : AnsiString) : SizeInt;
+Function Pos (c : AnsiChar; Const s : AnsiString) : SizeInt;
 var
   i: SizeInt;
 begin
@@ -844,7 +844,6 @@ end;
 
 function upcase(const s : ansistring) : ansistring;
 var
-  i : SizeInt;
   u : unicodestring;
 begin
   u:=s;
@@ -854,7 +853,6 @@ end;
 
 function lowercase(const s : ansistring) : ansistring;
 var
-  i : SizeInt;
   u : unicodestring;
 begin
   u:=s;