delphi13 多线程优化 TThreadedQueue改进

delphi13 多线程优化 TThreadedQueue改进：

var
  Queue: TThreadedQueue<Integer>;
begin
  Queue := TThreadedQueue<Integer>.Create;
  try
    Queue.PushItem(42);
    // 新增Count属性
    if Queue.Count > 100 then 
      PurgeQueue(Queue);
  finally
    Queue.Free;
  end;
end;