void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Text = Edit1->Text.UpperCase();
this->Caption = Edit1->Text.UpperCase();
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Edit1->Text = Edit1->Text.LowerCase();
this->Caption = Edit1->Text.LowerCase();
}
Label1->Caption = Edit1->Text;