anchor.diff:  Var l : TList;
     i : Integer;
   begin
  -  FStartTickCount := GetTickCount64;
  +  FStartTickCount := TPlatform.GetTickCount;
     FDebugStep := '';
     i := _threads.Add(Self);
     try
  
positive.code:     FCounterLock : TCriticalSection;
      FWaitingForCounter : Integer;
      FCurrentThread : Cardinal;
      FStartedTimestamp : Cardinal;
      FName : String;
    public
      Constructor Create(const AName : String);
  
negative.code: 
  class function TPCThread.TryProtectEnterCriticalSection(const Sender: TObject;
    MaxWaitMilliseconds: Cardinal; var Lock: TPCCriticalSection): Boolean;
  Var tc : TTickCount;
    {$IFDEF HIGHLOG}
    tc2,tc3,lockStartedTimestamp : TTickCount;
    lockCurrThread : TThreadID;
    lockWatingForCounter : Cardinal;
    s : String;
    {$ENDIF}
  begin
    tc := TPlatform.GetTickCount;
    if MaxWaitMilliseconds>60000 then MaxWaitMilliseconds := 60000;
    {$IFDEF HIGHLOG}
    lockWatingForCounter := Lock.WaitingForCounter;
  