anchor.diff:    while not terminated do begin
       sleep(1);
     end;
  +  FCPUs:=0;
  +  CheckCPUs;
   end;
   
   procedure TCPUDeviceThread.CheckCPUs;
  
positive.code:   THIS LICENSE HEADER MUST NOT BE REMOVED.
  }
  
  {$mode delphi}
  
  interface
  
  {$I config.inc}
  
  uses
    Classes, SysUtils, syncobjs, UThread, UPoolMining, UAccounts, UCrypto, ULog, UBlockChain, USha256, URandomHash;
  
  type
    TMinerStats = Record
  
negative.code:   try
      g := FGlobaDeviceStats;
      If Not FPaused then begin
        g.WorkingMillisecondsHashing:= g.WorkingMillisecondsHashing + (TPlatform.GetTickCount - FLastActiveTC);
        g.WorkingMillisecondsTotal:= g.WorkingMillisecondsTotal + (TPlatform.GetTickCount - FLastActiveTC);
      end;
      Result := g;
    finally
  