FIX: Bug [0002102]

components/viewer/viewercontrol.pas

@@ -2712,7 +2712,7 @@ var
 
   function XYPos2AdrText: PtrInt;
   var
-    i: Integer;
+    i: PtrInt;
     charWidth: Integer;
     textWidth: Integer;
     len: Integer = 0;