Изменить записи в таблице

//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
 
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("BEGIN ");
ADOQuery1->SQL->Add("P_PROJECT_INSERT ('"+ComboBox1->Text+"','"+
                                        Edit2->Text+"','"+
                                        Edit3->Text+"','"+
                                        Edit4->Text+"','"+
                                        Edit5->Text+"','"+
                                        Edit6->Text+"'); ");
ADOQuery1->SQL->Add("END;");
Memo1->Lines=ADOQuery1->SQL;
ADOQuery1->ExecSQL();
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormCreate(TObject *Sender)
{
 int i;
 
ADOQuery1->SQL->Add ("select t.address from OBJECTS t");
ADOQuery1->Active=true;
ADOQuery1->Open();
ComboBox1->Items->Clear();
for (int i=0;i<=ADOQuery1->RecordCount-1;i++){
   ComboBox1->Items->Add(ADOQuery1->FieldByName("ADDRESS")->AsString);
   ADOQuery1->Next();
}
 
ADOQuery1->Close();
ADOQuery1->Active=false;
}
//---------------------------------------------------------------------------
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N11Click(TObject *Sender)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("BEGIN ");
ADOQuery1->SQL->Add("P_PROJECT_delete('"+DBGrid1->Fields[0]->AsString+"');");
ADOQuery1->SQL->Add("END;");
ADOQuery1->ExecSQL();
}
//---------------------------------------------------------------------------