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:     if (i>=0) then begin
        params := json.Items[i];
      end;
      //params_object := json.GetAsObject('result');
      TLog.NewLog(ltinfo,classname,'Received response method:'+ResponseMethod+' JSON:'+json.ToJSON(false));
    end else begin
      method := json.AsString('method','');
  
negative.code:       P^.method:=method;
        FPendingResponseMessages.Add(P);
      end;
      TLog.NewLog(ltInfo,Classname,'Sending JSON: '+json.ToJSON(false));
      stream := TMemoryStream.Create;
      try
        json.SaveToStream(stream);
  