__fastcall TfrmA(AnsiString &newmodel):TForm(Application),model(newmodel){};