anchor.diff:  end;
   
   
  -procedure TTextManager.LoadTextLibraryConsts(aConstPath: string);
  -const Size_Inc = 100;
  +procedure TTextManager.LoadConsts(aConstPath: string);
   var
     SL: TStringList;
     Line: string;
  -  i, CenterPos: Integer;
  +  I, CenterPos: Integer;
   begin
     SL := TStringList.Create;
     SL.LoadFromFile(aConstPath);
  
positive.code:     fLocales: array of string;
      fDefaultLocale: Integer;
  
      fTexts: array of TStringArray;
      fConsts: array of TTextInfo;
  
  
negative.code:   SetLength(fTexts, 0);
    SetLength(fLocales, 0);
  
    ScanTranslations(aTextPath);
    if fLocalesCount = 0 then Exit;
  
    LoadConsts(aConstPath);
    for I := 0 to fLocalesCount - 1 do
      LoadText(Format(aTextPath, [fLocales[I]]), I);
  
    AddMissingConsts;
  end;
  