anchor.diff:      FCounterLock : TCriticalSection;
       FWaitingForCounter : Integer;
       FCurrentThread : Cardinal;
  -    FStartedTimestamp : Cardinal;
  +    FStartedTickCount : TTickCount;
       FName : String;
     public
       Constructor Create(const AName : String);
  
positive.code: Var l : TList;
    i : Integer;
  begin
    FStartTickCount := GetTickCount64;
    FDebugStep := '';
    i := _threads.Add(Self);
    try
  
negative.code:     list.BeginUpdate;
      list.Clear;
      for i := 0 to l.Count - 1 do begin
        list.Add(Format('%.2d/%.2d <%s> Time:%s sec - Step: %s',[i+1,l.Count,TPCThread(l[i]).ClassName,FormatFloat('0.000',(TPlatform.GetElapsedMilliseconds(TPCThread(l[i]).FStartTickCount) / 1000)),TPCThread(l[i]).DebugStep] ));
      end;
      list.EndUpdate;
    finally
  