__fastcall TForm1::Button1Click(TObject *Sender)
__fastcall TForm1::TImageClick(TObject *Sender){ ((TImage*)Sender)->Width = ....}