БД информация

void __fastcall TForm2::Button1Click(TObject *Sender)
{
  AnsiString fam=Edit1->Text;
  AnsiString imya=Edit2->Text;
  AnsiString otch=Edit3->Text;
  AnsiString pas=Edit4->Text;
  AnsiString st=Edit5->Text;
  AnsiString nomer=Edit6->Text;
  AnsiString kom=Edit7->Text;
  AnsiString ploch=Edit8->Text;
  AnsiString tvk_cena=Edit9->Text;
  AnsiString pks_cena=Edit10->Text;
    AnsiString el_cena=Edit11->Text;
    AnsiString lgota=Edit12->Text;
 
 
  ADOQuery1->Close();
  ADOQuery1->SQL->Clear();
  AnsiString query="SELECT id_status FROM status WHERE status_nazvanie=\""+st+"\"";
  ADOQuery1->SQL->Add(query);
  ADOQuery1->Open();
  int id1=DBGrid1->Fields[0]->AsInteger;
 
    ADOQuery1->Close();
  ADOQuery1->SQL->Clear();
  query="Select MAX(Id_jilca) From jilci";
    ADOQuery1->SQL->Add(query);
      ADOQuery1->Open();
  int id=DBGrid1->Fields[0]->AsInteger+1;
    ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
 
   query="INSERT INTO jilci VALUES ("+(AnsiString)id1+", \""+fam+"\", \""+imya+"\", \""+otch+"\", \""+pas+"\", \""+st+"\", \""+nomer+"\", \""+kom+"\", \""+ploch+"\", \""+tvk_cena+"\", \""+pks_cena+"\", \""+el_cena+"\", \""+lgota+"\", "+id+")";
 
 
  ADOQuery1->SQL->Add(query);
  ADOQuery1->ExecSQL();
    ADOQuery1->Close();
  ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add(query);
  ADOQuery1->Open();
 
 
 ShowMessage("Успешно добавлено");
}