anchor.diff:    if not FileExists(aTextPath) then Exit;
   
     SL := TStringList.Create;
  -  SL.LoadFromFile(aTextPath);
  +  SL.Text := ReadTextU(aTextPath, aCodePage);
   
     for I := SL.Count - 1 downto 0 do
     begin
  
positive.code: interface
  uses
    Classes, Controls, Dialogs, ExtCtrls, FileCtrl, Forms, Graphics, Math, KromUtils,
    StdCtrls, StrUtils, SysUtils, Windows, KM_ResLocales;
  
  
  type
  
negative.code: end;
  
  
  procedure TTextManager.LoadText(aTextPath: string; TranslationID: Integer; aCodePage: Word);
  var
    SL: TStringList;
    firstDelimiter, topId: Integer;
  