create (tvirtualpersistent)
create (tdialogcontroller)
create (tstringdialogcontroller)
destroy (tlinkedpersistent)
setlinkedvar (tlinkedpersistent)