anchor.diff:      {$IFDEF TESTNET}
       Procedure InitMenuForTesting;
       Procedure Test_RandomOperations(Sender: TObject);
  +    Procedure Test_AskForFreeAccount(Sender: TObject);
       {$IFDEF TESTING_NO_POW_CHECK}
       Procedure Test_CreateABlock(Sender: TObject);
       {$ENDIF}
  
positive.code:     FBackgroundPanel : TPanel;
      FBackgroundLabel : TLabel;
      FMinersBlocksFound: Integer;
      procedure SetMinersBlocksFound(const Value: Integer);
      Procedure CheckIsReady;
      Procedure FinishedLoadingApp;
  
negative.code:     FRM.Free;
    end;
  end;
  
  Procedure TFRMWallet.Test_AskForFreeAccount(Sender: TObject);
  var i : Integer;
  begin
    i := TPCTNetDataExtraMessages.AskForFreeAccount(GetAccountKeyForMiner);
    if i>0 then ShowMessage(Format('Asked for a free account to %d nodes...',[i]))
    else ShowMessage('Sorry. No nodes available to ask for a free account');
  end;
  
  {$ENDIF}
  
  procedure TFRMWallet.Test_ShowPublicKeys(Sender: TObject);
  