MyObj['Category\SubCategory\Option'] := '123'; v := MyObj['Category\SubCategory\Option'];
MyObj.Category.SubCategory.Option := '123'; v := MyObj.Category.SubCategory.Option;