Динамическое обращение к компоненту

String name="ToolButtin2"
static_cast<TToolButton*>(тра та та name)->Enabled =true;

TComponent *AComponent = Form1->FindComponent("ToolButton2");
if (AComponent) {
    TToolButton *AToolBtn = dynamic_cast<TToolButton *>(AComponent);
    if (AToolBtn) {
           AToolBtn->Enabled = true;
    }
}

typedef enum { arAdmin, arOperator, arDemo } TAdminRight; 
// создадим класс, в котором будут определятся всякие права
class TCurrentUser : public TObject {
private:
    TAdminRight FAdminRight;
public:
    TCurrentUser();
 
    __property TAdminRight AdminRight = {read=FAdminRight};
 
}

// в коде при загрузке базы, будем заполнять права у CurrentUser
TCurrentUser *CurrentUser;
 
// при смене User будем вызывать эту функцию
void __fastcall TForm1::OnUserChanged() {
    ActionSaveDatabase->Enabled = CurrentUser->AdminRight == arAdmin || 
CurrentUser->AdminRight == arOperator;
}
 
// также подстрахуемся и в самом выполнении Action,
// так как кнопку можно разблокировать и внешними средствами
void __fastcall TForm1::ActionSaveDatabaseExecute(TObject *Sender) {
    switch (CurrentUser->AdminRight) {
    case arAdmin: {
 
    } break;
    case arOperator: {
 
    } break;
    default:
          ShowMessage("Недостаточно прав!");
    }
}