--- oup/current/Global/Functions.pas	2007/08/18 15:51:42	245
+++ oup/current/Global/Functions.pas	2009/05/06 13:47:23	321
@@ -150,7 +150,6 @@ end;
 
 function ReadString(Stream: TStream; Offset: Integer): String;
 var
-  i: Integer;
   c: Char;
 begin
   if Assigned(Stream) then