anchor.diff:      FBackgroundPanel : TPanel;
       FBackgroundLabel : TLabel;
       FMinersBlocksFound: Integer;
  +    {$IFDEF TESTNET}
  +    FLastAskForAccountTC : TTickCount;
  +    {$ENDIF}
       procedure SetMinersBlocksFound(const Value: Integer);
       Procedure CheckIsReady;
       Procedure FinishedLoadingApp;
  
positive.code:   mi.Caption:='Create Random operations';
    mi.OnClick:=Test_RandomOperations;
    miAbout.Add(mi);
  end;
  
  {$IFDEF TESTING_NO_POW_CHECK}
  
negative.code:   {$IFDEF TESTNET}
    System.ReportMemoryLeaksOnShutdown := True; // Delphi memory leaks testing
    {$ENDIF}
    {$ENDIF}
    {$IFDEF TESTNET}
    FLastAskForAccountTC := 0;
    {$ENDIF}
    FLastNodesCacheUpdatedTS := Now;
    FBackgroundPanel := Nil;
  