anchor.diff:    mi.Caption:='Create Random operations';
     mi.OnClick:=Test_RandomOperations;
     miAbout.Add(mi);
  +  mi := TMenuItem.Create(MainMenu);
  +  mi.Caption:='Ask for Free Account';
  +  mi.OnClick:=Test_AskForFreeAccount;
  +  miAbout.Add(mi);
   end;
   
   {$IFDEF TESTING_NO_POW_CHECK}
  
positive.code:  sClientApp, sLastConnTime : String;
   strings, sNSC, sRS, sDisc : TStrings;
   hh,nn,ss,ms : Word;
  begin
    Try
      if Not TNetData.NetData.NetConnections.TryLockList(100,l) then exit;
  
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);
  