void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption="Button 1被按下";
}    void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Label1->Caption="Button 2被按下";
}

bool btnClick=false;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  btnClick=true;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   if (btnClick)
      {
       //.....
      }
    else
      {
       //....
      }
}

來點複雜的
#include 
Form上的OnMouseDown或OnClick 事件
將你的Button1的事件指向Form上同一事件上
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
  TComponent *pComponent;
  pComponent = (TComponent *) Sender;
  if (pComponent->Name=="Button1" )
    // Button1被按下
}
請參考