void __fastcall TForm1::Button1Click(TObject *Sender){ try { Form1->Caption = IntToStr(StrToInt(Edit1->Text) * StrToInt(Edit2->Text)); } catch(...) { ShowMessage("You must specify integer values. Please try again."); }}