anchor.diff:      try
         pTaskFolder := pService.GetFolder('\'+CTaskFolderName);
       except
  +      on E:EOleException do
  +      begin
  +        // We can't find the folder, for some unknown reason, so give up
  +        if E.ErrorCode <> HResultFromWin32(ERROR_FILE_NOT_FOUND) then
  +          ReportEvent('Failed to find '+CTaskFolderName+' task folder: '+E.ClassName+', '+E.Message);
  +        Exit;
  +      end;
  +
         on E:Exception do
         begin
  -        // We can't find the folder, for some unknown reason, so give up
           ReportEvent('Failed to find '+CTaskFolderName+' task folder: '+E.ClassName+', '+E.Message);
           Exit;
         end;
  
positive.code: 
      pTasks := pTaskFolder.GetTasks(0);
  
      for i := 0 to pTasks.Count - 1 do
        pTaskFolder.DeleteTask(pTasks.Item[i].Name, 0);
  
      pTaskFolder := nil;
      pService.GetFolder('\').DeleteFolder(CTaskFolderName, 0);
  
negative.code: uses
    System.SysUtils,
    System.Variants,
    System.Win.ComObj,
    Winapi.ActiveX,
    Winapi.Windows,
  
  