TObject
TDialog
TODO
bodyComponent : Component
modalclose : bool
closed()
opened()
close()
hideAndClose()
open()