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