TTiOPFCodeOptions
Create
Assign
TClassCodeGeneratorOptions
pt
SetClassName
CleanObjectClassName
TCodeGeneratorOptions
SetOPtions
create