Здравствуйте Аноним, Вы писали:

А>Нужно сделать калькулятор и препод требует сделать, чтобы все кнопки на онклик запускали одну прцедуру... И вот у меня проблема как узнать на какую именно кнопку нажал пользователь??

Создать 4 кнопки (Button1,Button2,Button3,Button4).

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Button1->Tag=1;
  Button2->Tag=2;
  Button3->Tag=3;
  Button4->Tag=4;
  Button1->OnClick=Button1Click;
  Button2->OnClick=Button1Click;
  Button3->OnClick=Button1Click;
  Button4->OnClick=Button1Click;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TButton *a;  
 a=(TButton *)Sender;
 switch(a->Tag)
 {
  case 1:ShowMessage("Button #1");break;
  case 2:ShowMessage("Button #2");break;
  case 3:ShowMessage("Button #3");break;
  case 4:ShowMessage("Button #4");break;
 };
}