anchor.diff:        //Required characters that can't be stored in plain text
         s := StringReplace(s, '\n', eol, [rfReplaceAll, rfIgnoreCase]); //EOL
         s := StringReplace(s, '\\', '\', [rfReplaceAll, rfIgnoreCase]); //Slash
  -      aArray[ID] := s;
  +      aArray[id] := s;
       end;
     end;
   
  
positive.code: 
  type
    TTextLibrary = class(TObject)
    private     { Private declarations }
      TextStrings: array[0..MaxStrings] of string;
      SetupStrings: array[0..MaxStrings] of string;
      RemakeStrings: array[0..MaxStrings] of string;
      procedure LoadLIBFile(FilePath:string; var aArray:array of string);
      procedure LoadLIBXFile(FilePath:string; var aArray:array of string);
      procedure ExportTextLibrary(var aLibrary: array of string; aFileName:string);
    public      { Public declarations } 
      constructor Create(aLibPath, aLocale: string);
      function GetTextString(aIndex:word):string;
      function GetSetupString(aIndex:word):string;
  
negative.code:   begin
      s := aStringList[i];
  
      firstDelimiter := Pos(':', s);
      if firstDelimiter=0 then continue;
      
      if not TryStrToInt(TrimLeft(LeftStr(s, firstDelimiter-1)), id) then continue;
  
      if ID <= MaxStrings then
      begin
  