registerobjectdata

procedure registerobjectdata(

  datapo: pobjectdataty;

  objectclass: TPersistentClass;

  name: string = ''

); overload;

procedure registerobjectdata(

  datapo: pobjectdataty;

  const objectclassname: string;

  const name: string = ''

); overload;