anchor.diff:  {$ENDIF}
   
   {$IFDEF TESTNET}
  +
  +procedure TFRMWallet.Test_ConnectDisconnect(Sender: TObject);
  +begin
  +  TNetData.NetData.NetConnectionsActive := Not TNetData.NetData.NetConnectionsActive;
  +  Exit;
  +  if FNode.NetServer.Active then begin
  +    FNode.NetServer.Active := False;
  +  end else begin
  +    FNode.NetServer.Active := True;
  +  end;
  +end;
  +
   procedure TFRMWallet.Test_RandomOperations(Sender: TObject);
   Var FRM : TFRMRandomOperations;
   begin
  
positive.code:     {$IFDEF TESTING_NO_POW_CHECK}
      Procedure Test_CreateABlock(Sender: TObject);
      {$ENDIF}
      {$ENDIF}
      Procedure Test_ShowPublicKeys(Sender: TObject);
      Procedure Test_ShowOperationsInMemory(Sender: TObject);
  
negative.code: 
  {$IFDEF TESTING_NO_POW_CHECK}
  procedure TFRMWallet.Test_CreateABlock(Sender: TObject);
  var ops, mempoolOps : TPCOperationsComp;
    nba : TBlockAccount;
    errors : String;
  
  begin
    {$IFDEF TESTNET}
    ops := TPCOperationsComp.Create(Nil);
    Try
      ops.bank := FNode.Bank;
      mempoolOps := FNode.LockMempoolRead;
      try
        ops.CopyFrom(mempoolOps);
      finally
        FNode.UnlockMempoolRead;
      end;
      ops.BlockPayload.FromString(IntToStr(FNode.Bank.BlocksCount));
      ops.nonce := FNode.Bank.BlocksCount;
      ops.UpdateTimestamp;
      FNode.AddNewBlockChain(Nil,ops,errors);
    finally
      ops.Free;
    end;
  