anchor.diff:  implementation
   
   function FCreateFile(const fn: string; AsJson: boolean): boolean;
  +var
  +  L: TStringList;
   begin
     Result:= true;
  -  with TStringListUTF8.Create do
  +  L:= TStringList.Create;
     try
       if AsJson then
       begin
  -      Add('{');
  -      Add('');
  -      Add('}');
  +      L.Add('{');
  +      L.Add('');
  +      L.Add('}');
       end;
   
       try
  -      SaveToFile(fn);
  +      L.SaveToFile(fn);
       except
         Result:= false;
       end;
     finally
  -    Free;
  +    FreeAndNil(L);
     end;
   end;
   
  
positive.code: uses
    Classes, SysUtils,
    LazFileUtils,
    LazUTF8Classes,
    ATStrings,
    CopyDir;
  
  
negative.code: 
    try
      try
        Str:= TFileStream.Create(fn, fmOpenRead or fmShareDenyNone);
      except
        exit(false);
      end;
  