TPasScope

IsStoredInElement

FreeOnPop

IterateElements

WriteIdentifiers

TResolveData

Create

Destroy

TPasElementBase

pt 

Accept