anchor.diff:        If (c=CT_MaxBlock) then ErrorDesc := 'Need block param'
         else ErrorDesc := 'Block not found: '+IntToStr(c);
         ErrorNum := CT_RPC_ErrNum_InvalidBlock;
  +    end;
  +    finally
  +      FNode.OperationSequenceLock.Release;
       end;
     end else if (method='getaccountoperations') then begin
       // Returns all the operations affecting an account in "Operation resume format" as an array
  
positive.code:     end;
      TPascalCoinJSONComp.FillBlockObject(nBlock,FNode,jsonObject);
      Result := True;
    end;
  
    Procedure FillOperationResumeToJSONObject(Const OPR : TOperationResume; jsonObject : TPCJSONObject);
  
negative.code: 
  destructor TRPCProcess.Destroy;
  begin
    Dec(FRPCServer.FLiveConnectionsCount);
    FSock.free;
    inherited Destroy;
  end;
  