доступ к свойствам/методам компонент

Bc++builder.
Каким способом считать/записать значение property компоненты, по имени данного property, не используя прямого доступа к свойству (тип компоненты заранее известен). То есть избежать написания либо кучи функций для всех свойств, либо использования оператора по номеру свойства switch.
//не
value1=Table1->Active ;
Table1->Active= value2;
//а на подобии
//чтение
void f_read(char* name_property, TVariant* Value)
{
.....
}
//запись
void f_write(char* name_property, TVariant Value)
{
.....
}
ЗЫ. Аналогично для методов.Вышеизложенное необходимо для написания осх (ActiveX)