anchor.diff:                , LOnException
                 );
               finally
  -              LResource.Free;
  -              LApplication.Free;
  -              LClient.Free;
  +              FreeAndNil(LResource);
  +              FreeAndNil(LApplication);
  +              FreeAndNil(LClient);
               end;
             end
           );
  
positive.code:                     else
                        AOnException(AException);
                    end;
                end
                else
                  LOnException := nil;
  
                LResource.DELETE(
                    ABeforeExecute
                  , procedure (AStream: TStream)
                    begin
                      Assign(LResource);
  
                      if Assigned(ACompletionHandler) then
                      begin
  
negative.code:             LOnException: TProc<Exception>;
            begin
              try
                LOnException := nil;
                if Assigned(AOnException) then
                  LOnException :=
                    procedure (AException: Exception)
                    begin
  