multi events

mam problem, wydaje sie on trywialny :
otoz chcialbym w builderze (6.0) napisac prosta procedure zaluzmy na zdarzenie onclick

void __fastcall TForm1::ButtonClick(TObject *Sender)
{
 Edit->Text = "ala ma kota";  //Button->Caption = "ala ma kota"
}

tylko przy wiekszej ilosci jest klopotliwe wpisywanie duzej ilosci procedur .. i chcialbym jedna wspolna tylko nie wiem jak zrealizowac funkcje
"Sender->Caption"

z gory dziekuje za pomoc

Edit1->Text = static_cast<TButton*>(Sender)->Caption;

dziekuje bardzo za pomoc :)