anchor.diff:    try
       g := FGlobaDeviceStats;
       If Not FPaused then begin
  -      g.WorkingMillisecondsHashing:= g.WorkingMillisecondsHashing + (GetTickCount - FLastActiveTC);
  -      g.WorkingMillisecondsTotal:= g.WorkingMillisecondsTotal + (GetTickCount - FLastActiveTC);
  +      g.WorkingMillisecondsHashing:= g.WorkingMillisecondsHashing + (TPlatform.GetTickCount - FLastActiveTC);
  +      g.WorkingMillisecondsTotal:= g.WorkingMillisecondsTotal + (TPlatform.GetTickCount - FLastActiveTC);
       end;
       Result := g;
     finally
  
positive.code:   while not terminated do begin
      sleep(1);
    end;
  end;
  
  procedure TCPUDeviceThread.CheckCPUs;
  
negative.code:   digest : TRawBytes;
    ok : Boolean;
    minervfw : TMinerValuesForWork;
    auxminervfw : TMinerValuesForWork;
  begin
    FGlobalMinerValuesForWork := FPoolMinerClient.MinerValuesForWork;
    TLog.NewLog(ltupdate,ClassName,Format('New miner values. Block %d Target %s Payload %s',[FPoolMinerClient.MinerValuesForWork.block,
  