anchor.diff:                        ACompletionHandler(LResource);
                     end;
                   end
  -              , AOnException
  +              , LOnException
                 );
               finally
                 LResource.Free;
  
positive.code: 
          TTask.Run(
            procedure
            begin
              try
                LResource.PUT(
                  ABeforeExecute
                , procedure (AStream: TStream)
  
negative.code:                         ACompletionHandler(LResource);
                      end;
                    end
                  , LOnException
                  );
                finally
                  LResource.Free;
                  if Assigned(LParentResource) then
  