anchor.diff:  
   type
     TTextLibrary = class(TObject)
  -  private     { Private declarations }
  +  private
       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 } 
  +  public
       constructor Create(aLibPath, aLocale: string);
       function GetTextString(aIndex:word):string;
       function GetSetupString(aIndex:word):string;
  
positive.code:       //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;
      end;
    end;
  
  
negative.code:   i:integer;
    s:string;
    firstDelimiter:integer;
    id:integer;
  begin
    if not CheckFileExists(FilePath) then exit;
  
  