setoptionalobject

procedure setoptionalobject(

  const componentstate: tcomponentstate;

  const value: tpersistent;

  var instance;

  createproc: createprocty

); overload;

procedure setoptionalobject(

  const aowner: tcomponent;

  const value: tpersistent;

  var instance;

  createproc: createprocty

); overload;

procedure setoptionalobject(

  const componentstate: tcomponentstate;

  const value: tvirtualpersistent;

  var instance;

  const aclass: virtualpersistentclassty

); overload;