void __fastcall CreateAndShowForm(TMetaClass* FormClass){
TForm *form;
Application->CreateFrom(FormClass,&form);
form->ShowModal();
form->Free;
}