TWinControlEnumerator
pt
GetCurrent
Create
GetEnumerator
MoveNext