anchor.diff:  *       (affecting lines 181-182) -- SPECIAL THANKS TO onivan!
   *     - fixed a bug causing an error on Unix machines (affecting line 292) --
   *       SPECIAL THANKS TO Caladan!
  -*
  +* 2020.05.31 - changes by Alexey Torgashin
   *
   *  Greetings,
   *  bastla
  
positive.code:   end;
  end;
  
  function TCopyDir._CanCopy(aFile: String): Boolean;
  var
    __fileAttributes: LongInt;
  begin
  
negative.code: // ***************************** PRIVATE SECTION **************************** \\
  // ************************************************************************** \\
  
  procedure TCopyDir._AddToList(const aString: String; var aList: TDirsArray);
  begin
    SetLength(aList, Length(aList) + 1);
    aList[High(aList)] := aString;
  end;
  
  procedure TCopyDir._AddToLog(const aNote: String);
  begin
    self._log.Append(aNote);
    if self._printToTerminal then WriteLn(aNote);
  end;
  
  procedure TCopyDir._CopyFile(const aFile: String);
  begin
    if CopyFile(aFile, self._SourceToTarget(aFile), self._preserveFileDates) then
    begin
  