anchor.diff:    begin
       s := aStringList[i];
   
  -    firstDelimiter := Pos(':',s);
  +    firstDelimiter := Pos(':', s);
       if firstDelimiter=0 then continue;
       
  -    if not TryStrToInt(TrimLeft(LeftStr(s, firstDelimiter-1)), ID) then continue;
  +    if not TryStrToInt(TrimLeft(LeftStr(s, firstDelimiter-1)), id) then continue;
   
       if ID <= MaxStrings then
       begin
  
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:   i:integer;
    s:string;
    firstDelimiter:integer;
    id:integer;
  begin
    if not CheckFileExists(FilePath) then exit;
  
  