create (tvirtualpersistent)

create (tdialogcontroller)

create (tintegerdialogcontroller)

destroy (tlinkedpersistent)

setlinkedvar (tlinkedpersistent)