anchor.diff:      FCounterLock.Release;
     end;
     FCurrentThread := TThread.CurrentThread.ThreadID;
  -  FStartedTimestamp := TPlatform.GetTickCount;
  -  inherited;
  +  FStartedTickCount := TPlatform.GetTickCount;
   end;
   {$ENDIF}
   
  
positive.code: procedure TPCCriticalSection.Release;
  begin
    FCurrentThread := 0;
    FStartedTimestamp := 0;
    inherited;
  end;
  
  
negative.code:   end;
    If inherited TryEnter then begin
      FCurrentThread := TThread.CurrentThread.ThreadID;
      FStartedTickCount := TPlatform.GetTickCount;
      Result := true;
    end else Result := false;
    FCounterLock.Acquire;
  