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;
  