if ( TButton* bttn = dynamic_cast<TButton*>( Sender ) )
　Edit1->Text = bttn->Caption;