void __fastcall TForm1::FormShow(TObject *Sender)
{
//      TScreen* Screen;
      Form1->Left = Screen->Width / 2 - Form1->Width / 2;
      Form1->Top = Screen->Height / 2 - Form1->Height / 2;


	ReadTheme();
      ReadForm();
      ReadPos();

      Form1_2Clear();
      theme->Items->Clear();
      exchange->Items->Clear();

	for(unsigned i_theme = 0; i_theme < DBClass::themes.size(); ++i_theme)
      	theme->Items->Add(DBClass::themes[i_theme]);
      for(unsigned i_form = 0; i_form < DBClass::formes.size(); ++i_form)
      	exchange->Items->Add(DBClass::formes[i_form]);
      for(unsigned i_pos = 0; i_pos < DBClass::poss.size(); ++i_pos)
      	position->Items->Add(DBClass::poss[i_pos]);

/*		name->Text = Form1->StringGrid1->Cells[findHead(vhead[DBClass::DB_NAM].name.c_str())][Form1->StringGrid1->Selection.Top];
		mail->Text = Form1->StringGrid1->Cells[findHead(vhead[DBClass::DB_MAIL].name.c_str())][Form1->StringGrid1->Selection.Top];
		URL->Text = Form1->StringGrid1->Cells[findHead(vhead[DBClass::DB_URL].name.c_str())][Form1->StringGrid1->Selection.Top];
            phone->Text = Form1->StringGrid1->Cells[findHead(vhead[DBClass::DB_PHN].name.c_str())][Form1->StringGrid1->Selection.Top];
            theme->Text = Form1->StringGrid1->Cells[findHead(vhead[DBClass::DB_THM].name.c_str())][Form1->StringGrid1->Selection.Top];
            //exchange->ItemIndex = Form2GetExchangeIndex(Form1->StringGrid1->Cells[findHead(vhead[DB_FORM].name.c_str())][Form1->StringGrid1->Selection.Top]);
		exchange->Text = Form1->StringGrid1->Cells[findHead(vhead[DBClass::DB_FORM].name.c_str())][Form1->StringGrid1->Selection.Top];
*/
}