anchor.diff:  
     Function GetBlock(nBlock : Cardinal; jsonObject : TPCJSONObject) : Boolean;
     begin
  +    FNode.OperationSequenceLock.Acquire; // Added to prevent high concurrent API calls
  +    try
       If FNode.Bank.BlocksCount<=nBlock then begin
         ErrorNum := CT_RPC_ErrNum_InvalidBlock;
         ErrorDesc := 'Cannot load Block: '+IntToStr(nBlock);
  
positive.code: constructor TRPCProcess.Create(ARPCServer : TRPCServer; AHSock:tSocket);
  begin
    FRPCServer := ARPCServer;
    FSock:=TTCPBlockSocket.create;
    FSock.socket:=AHSock;
    FreeOnTerminate:=true;
  
negative.code:     LLockedMempool : TPCOperationsComp;
    Begin
      Result := false;
      FNode.OperationSequenceLock.Acquire; // Added to prevent high concurrent API calls
      try
      if (startReg<-1) or (maxReg<=0) then begin
        ErrorNum := CT_RPC_ErrNum_InvalidData;
        ErrorDesc := 'Invalid start or max value';
  