anchor.diff:      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','');
  
positive.code:       P^.method:=method;
        FPendingResponseMessages.Add(P);
      end;
      TLog.NewLog(ltdebug,Classname,'Sending JSON-RPC: '+json.ToJSON(false));
      stream := TMemoryStream.Create;
      try
        json.SaveToStream(stream);
  
negative.code:   end;
    if method=CT_PoolMining_Method_MINER_NOTIFY then begin
      If assigned(params_as_array) then pobject := params_as_array.GetAsObject(0)
      else pobject := params_as_object;
      if assigned(pobject) then begin
        mvfw := CT_TMinerValuesForWork_NULL;
        mvfw.block := pobject.AsInteger('block',0);
  