realtytovariant

procedure realtytovariant(

  const value: realty;

  out dest: variant

); overload;

function realtytovariant(

  const value: realty

):variant; overload;