anchor.diff:  uses
     Classes, SysUtils,
     LazFileUtils,
  -  LazUTF8Classes,
     ATStrings,
     CopyDir;
   
  
positive.code: 
    try
      try
        Str:= TFileStreamUTF8.Create(fn, fmOpenRead or fmShareDenyNone);
      except
        exit(false);
      end;
  
negative.code:   n: Integer;
    Table: TFreqTable;
    TableSize: Integer;
    Str: TFileStream;
    SSign: string;
    IsOEM, IsLE: boolean;
  begin
  