create (tvirtualpersistent)

create (tdialogcontroller)

create (tdatetimedialogcontroller)

destroy (tlinkedpersistent)

setlinkedvar (tlinkedpersistent)