Try to fix rtl compilation error for some systems after last merge

git-svn-id: branches/fixes_3_2@45850 -

rtl/inc/text.inc

@@ -2216,7 +2216,7 @@ var
   hs   : String;
   code : Longint;
 Begin
-  l:=0;
+  i:=0;
   if not CheckRead(f) then
     Exit;