void __fastcall TFormMain::Button1Click(TObject *Sender)
 {
     TForm2 *Form2;
     Form2 = new TForm2(Application);
     Form2->Parent=TabSheet;
     Form2->Show();
 }