anchor.diff:      end;
     end;
   var
  -  Tmp: TUnicodeStringArray;
  +  tmp: TUnicodeStringArray;
     langCode: AnsiString;
     libTxt: UnicodeString;
     I: Integer;
  
positive.code:   // Load ANSI file with codepage we say into unicode string
    langCode := AnsiString(Copy(FilePath, Length(FilePath) - 7, 3));
    libTxt := ReadTextU(FilePath, gResLocales.LocaleByCode(langCode).FontCodepage);
    Tmp := TextToArray(libTxt);
  
    topId := -1;
  
    for I := High(Tmp) downto 0 do
    begin
      firstDelimiter := Pos(':', Tmp[I]);
      if firstDelimiter = 0 then Continue;
  
      if TryStrToInt(LeftStr(Tmp[I], firstDelimiter - 1), lineId) then
      begin
        if not aFullScan then
        begin
  
negative.code:   if Length(aArray) < topId + 1 then
      SetLength(aArray, topId + 1);
  
    for I := 0 to High(tmp) do
    begin
      s := tmp[I];
  
      // Get string index and skip erroneous lines
      firstDelimiter := Pos(':', s);
  