Перебор SpeedButton в цикле

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for (int i=0;i<Form1->ComponentCount;i++)
    {
     if(Form1->Components[i]->ClassNameIs("TSpeedButton"))
     {
      ((TSpeedButton*)Form1->Components[i])->Caption = IntToStr(i);
     }
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int d = 0;
 for (int i=0;i<Form1->ComponentCount;i++)
    {
     if(Form1->Components[i]->ClassNameIs("TSpeedButton"))
     {
        d++;
        if(d==2)
        {
          ShowMessage("Àêòèâíà êíîïêà íîìåð 2");
        }
     }
    }
}

 for (int i=0;i<Form1->ComponentCount;i++)
    {
     if(Form1->Components[i]->ClassNameIs("TSpeedButton"))
     {
        if(static_cast<TSpeedButton*>(Components[i])->Down)
        {
          ShowMessage("Активна кнопка номер " + IntToStr(i));
        }
     }
    }

for (int i=0;i<Form1->ComponentCount;i++)
    {
     if(Form1->Components[i]->ClassNameIs("TSpeedButton"))
     {
        if(static_cast<TSpeedButton*>(Components[i])->Down)
        {
          ShowMessage( "Активна кнопка " + static_cast<TSpeedButton*>(Components[i])->Name );
        }
     }
    }

// H
// Класс-перехватчик, перед описанием класса формы
 
namespace MySpeedButton
{
    class TSpeedButton : public Buttons::TSpeedButton
    {
    public:
        static TSpeedButton *Active;
        DYNAMIC void __fastcall Click(void)
        {
            if(Down) Active = this;
            else Active = 0;
        }
        __fastcall virtual TSpeedButton(Classes::TComponent* AOwner)
            : Buttons::TSpeedButton(AOwner) {}
    };
}
#define TSpeedButton MySpeedButton::TSpeedButton

// CPP, реализация
 
TSpeedButton *TSpeedButton::Active = 0;
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
 
// ...
 
    // Проверяем, какая кнопка активна:
    TSpeedButton *btn = TSpeedButton::Active;
    if(btn) ShowMessage(btn->Caption);