Update simba.pixelocr.pas

Author: Torwent

Source/simba.pixelocr.pas

@@ -609,14 +609,15 @@ function TPixelOCR.RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont;
 var
   isBinary: Boolean;
   Match: TPixelOCRMatch;
+  i: Integer;
 begin
   if (Length(Font.Glyphs) = 0) then
     SimbaException('Font is empty');
 
   if not AlphaNumSymbolTableInitialized then
   begin
     FillChar(AlphaNumSymbolTable, SizeOf(AlphaNumSymbolTable), False);
-    for i to High(ALPHA_NUM_SYMBOLS) do
+    for i := 0 to High(ALPHA_NUM_SYMBOLS) do
       AlphaNumSymbolTable[ALPHA_NUM_SYMBOLS[i]] := True;
     AlphaNumSymbolTableInitialized := True;
   end;