TDBAppForm

pt 

DoInitForm

pt 

DoOpenDatasets

TAppForm

pt 

DoInitForm

Create

DoShow

Activate