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