TObjectStack
Push
Pop
Peek
TStack
pt
PushItem
TOrderedList
PopItem
PeekItem
Create
Destroy
Count
AtLeast