anchor.diff:  end;
   
   
  -procedure TTextManager.LoadText(aTextPath: string; TranslationID: Integer);
  +procedure TTextManager.LoadText(aTextPath: string; TranslationID: Integer; aCodePage: Word);
   var
     SL: TStringList;
     firstDelimiter, topId: Integer;
  
positive.code:     function GetText(aIndex: Integer): TStringArray;
  
      procedure LoadConsts(aConstPath: string);
      procedure LoadText(aTextPath: string; TranslationID: integer);
      procedure AddMissingConsts;
      procedure SaveTextLibraryConsts(aFileName: string);
      procedure SaveTranslation(aTextPath: string; TranslationID: integer);
  
negative.code:   if not FileExists(aTextPath) then Exit;
  
    SL := TStringList.Create;
    SL.Text := ReadTextU(aTextPath, aCodePage);
  
    for I := SL.Count - 1 downto 0 do
    begin
  