void __fastcall TForm1::ButtonClick(TObject *Sender)
{
Caption = dynamic_cast<TButton*>(Sender)->Caption;
}