Habilitar/Deshabilitar botones permanentemente

[delphi.com.ar]

De antemano te comento que no conozco C++ en profundidad, pero esto lo hice funcionar:

//---------------------------------------------------------------------------
#include <vcl.h>
#include <registry.hpp>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    const String Regkey = "\\software\\Mi Marca\\Mi Soft\\";

    TRegistry *MyRegistry = new TRegistry();
    try {
      MyRegistry->RootKey = HKEY_LOCAL_MACHINE;
   	  MyRegistry->OpenKey(Regkey, True);
      Button1->Enabled = MyRegistry->ReadBool(Button1->Name);
   	}
   	catch(ERegistryException &E) {
 	  ShowMessage(E.Message);
      delete MyRegistry;
      return;
    }
   	delete MyRegistry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    const String Regkey = "\\software\\Mi Marca\\Mi Soft\\";

    TRegistry *MyRegistry = new TRegistry();
    try {
      MyRegistry->RootKey = HKEY_LOCAL_MACHINE;
   	  MyRegistry->OpenKey(Regkey, True);
      MyRegistry->WriteBool(Button1->Name, Button1->Enabled);
   	}
   	catch(ERegistryException &E) {
 	  ShowMessage(E.Message);
      delete MyRegistry;
      return;
    }
   	delete MyRegistry;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Button1->Enabled = !Button1->Enabled;
}
//---------------------------------------------------------------------------