var
  CCCC: Integer;
function TSyncQueue<T>.Enqueue(const Value: T): Boolean;
var
  Node: PNode;
  Tail: TSyncPointer;
  test: Boolean;
  x: T;
begin
  test := InterlockedIncrement(CCCC) = 3;
  // новый узел
  Node := TSyncAllocator<Pointer,TNothing,T>.New;
  Node.Value := Value;
  Node.Next := nil;

  // подмен€ем FTail на узел
  Tail := FTail.AtomicExchange(Node);
  (*repeat
    Tail := FTail.Copy;
  until (FTail.AtomicCmpExchange(Node, Tail)); *)
  // инициализируем Next предущего узла или сам FHead
  if (Tail.Empty) then
  begin
    if test then begin
      Enqueue(Value);
      Dequeue(x);
    end;
    //FHead.Fill(Node);
    FHead.AtomicExchange(Node);
  end else
  begin
    PNode(Tail.Value).Next := Node;
  end;

  Result := True;
end;

  1 threads
Cicle count: 20324
Cicle count: 21207
Cicle count: 21943
Cicle count: 21369
Cicle count: 21195
Cicle count: 21202
  2 threads
Cicle count: 16711
Cicle count: 16556
Cicle count: 16906
Cicle count: 15959
Cicle count: 16327
Cicle count: 16101
  3 threads
Cicle count: 12555
Cicle count: 13022
Cicle count: 12897
Cicle count: 12576
Cicle count: 13717
Cicle count: 12582
  4 threads
Cicle count: 10971
Cicle count: 10340
Cicle count: 8797
Cicle count: 9477
Cicle count: 10483
Cicle count: 9759