anchor.diff:    end;
     if method=CT_PoolMining_Method_MINER_NOTIFY then begin
       If assigned(params_as_array) then pobject := params_as_array.GetAsObject(0)
  -    else pobject := Nil;
  +    else pobject := params_as_object;
       if assigned(pobject) then begin
         mvfw := CT_TMinerValuesForWork_NULL;
         mvfw.block := pobject.AsInteger('block',0);
  
positive.code:   mvfw : TMinerValuesForWork;
    prev_pow,proposed_pow : TRawBytes;
  begin
    TLog.NewLog(ltdebug,ClassName,'Received JSON: '+json.ToJSON(false));
    params := Nil;
    params_as_object := Nil;
    params_as_array := Nil;
  
negative.code:       json.free;
      end;
      if (Not Result) then begin
        TLog.NewLog(lterror,classname,'Not received a JSON response Id:'+inttostr(nId)+' for method:'+method);
      end;
    finally
      FLockProcessBuffer.Release;
  