anchor.diff:  interface
   uses
     Classes, Controls, Dialogs, ExtCtrls, FileCtrl, Forms, Graphics, Math, KromUtils,
  -  StdCtrls, StrUtils, SysUtils, Windows, KM_ResLocales;
  +  StdCtrls, StrUtils, SysUtils, Windows, KM_ResLocales, KM_FileIO;
   
   
   type
  
positive.code: end;
  
  
  procedure TTextManager.LoadText(aTextPath: string; TranslationID: Integer);
  var
    SL: TStringList;
    firstDelimiter, topId: 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
  