TMenuItemEnumerator
Create
MoveNext