Как узнать длину DataStack?

uses Containers, GraphABC, PointRect;
const
  Angle = -Pi / 4;
 
type
  EdgeData = class
    A, B, C: Point;
    R: integer;
 
    constructor Create(pa, pb, pc: Point; pr: integer);
    begin
      A := pa; B := pb; C := pc;
      R := pr;
    end;
  end;
 
var
  DataStack: ObjectStack;
  DT: EdgeData;
  R2: integer;
  
function RotatePoint(pA: Point; r, angle: integer): Point;
var
  angle2: real;
begin
  angle2 := angle * 0.0174533;
  Result := PointF(Round(pA.X + r * Cos(angle2)), Round(pA.Y + r * Sin(angle2)));
end;
 
procedure PushTreePart(pB: Point; r: integer);
begin
  DataStack.Push(EdgeData.Create(RotatePoint(pB, r, -135), pB, RotatePoint(pB, r, -45), r));
end;
 
function RIsBig(dt: EdgeData): boolean;
begin
  Result := dt.R > 5;
end;
 
begin
  Lockdrawing();
 
  DataStack := ObjectStack.Create();
 
  PushTreePart(PointF(300, 300), 200);
  while DataStack.Count > 0 do // Как узнать длину стека?
  begin
    DT := DataStack.Pop();
    Line(DT.A.X, DT.A.Y, DT.B.X, DT.B.Y);
    Line(DT.B.X, DT.B.Y, DT.C.X, DT.C.Y);
    if RIsBig(DT) then
    begin
      R2 := dt.R div 2;
      PushTreePart(dt.A, R2);
      PushTreePart(dt.C, R2);
    end;
  end;
  Redraw();
end.