anchor.diff:    if Length(aArray) < topId + 1 then
       SetLength(aArray, topId + 1);
   
  -  for I := 0 to High(Tmp) do
  -  begin
  -    s := Tmp[I];
  +  for I := 0 to High(tmp) do
  +  begin
  +    s := tmp[I];
   
       // Get string index and skip erroneous lines
       firstDelimiter := Pos(':', s);
  
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:     end;
    end;
  var
    tmp: TUnicodeStringArray;
    langCode: AnsiString;
    libTxt: UnicodeString;
    I: Integer;
  