getoptionalobject

procedure getoptionalobject(

  const componentstate: tcomponentstate;

  const instance: tobject;

  createproc: createprocty

); overload;

procedure getoptionalobject(

  const aowner: tcomponent;

  const instance: tobject;

  createproc: createprocty

); overload;

procedure getoptionalobject(

  const componentstate: tcomponentstate;

  var instance: tvirtualpersistent;

  const aclass: virtualpersistentclassty

); overload;