Удаление записей через DBGrid

if (DBGrid1->SelectedRows->Count > 0) {
 
    TDataSet *pDS = DBGrid1->DataSource->DataSet;
 
    for (int i=0; i < DBGrid1->SelectedRows->Count; i++)  {
 
      pDS->GotoBookmark(DBGrid1->SelectedRows->Items[i]);
      ADOQuery2->Close();
      ADOQuery2->SQL->Clear();
      ADOQuery2->SQL->Add("DELETE FROM table_name WHERE ID =" + pDS->Fields->Fields[0]->AsString); //предполагается, что в первом столбике сидит идентификатор
      ADOQuery2->Open();
      }
 
    }
 
      ADOQuery1->Close(); //обновляем ДБГрид
      ADOQuery1->Open();

void __fastcall Tglavnauy::Button1Click(TObject *Sender)
{
 
    if(DM1->UniQuery3->RecordCount !=0)
     {
         AnsiString ds = "Вы деиствительно хотите удалить выбранную строку? \n\n";
     if (    MessageDlg(ds.c_str(),mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0) ==IDNO)
     {
         Abort();
     }
     else
 
 
      if( DBGrid1->SelectedRows->Count > 0)
     {
         //DM1->UniQuery3->DisableControls();
         int curItem = DM1->UniQuery3->RecNo;
         DM1->UniQuery3->First();
         while(!DM1->UniQuery3->Eof)
         {
     if(DBGrid1->SelectedRows->CurrentRowSelected)
     {
      int CurrentRecord;
     CurrentRecord = StrToInt(DBGrid1->SelectedField->Text);
     Memo1->Lines->Add(DBGrid1->SelectedField->Text);
       DM1->UniQuery3->Close();
     DM1->UniQuery3->SQL->Clear();
    DM1->UniQuery3->SQL->Add("delete avto.*,deklarant.*,glava.* from avto,deklarant,glava  ");
    DM1->UniQuery3->SQL->Add(" where glava.id = avto.id2 and (glava.id =:Value_id) and  glava.id=deklarant.id2 ");
        DM1->UniQuery3->Parameters->ParamByName("Value_id")->Value = CurrentRecord; //CurrentRecord содержит уникальный идентификатор текущей записи
        DM1->UniQuery3->ExecSQL();
     DM1->UniQuery3->Close();
     DM1->UniQuery3->SQL->Clear();
      DM1->UniQuery3->SQL->Add("select * from glava") ;
      DM1->UniQuery3->Open();
     }
    else
     {
         DM1->UniQuery3->Next();
     }
 
          }
        DBGrid1->SelectedRows->Clear();
        if(DM1->UniQuery3->RecordCount > 0)
     {
        if(curItem > DM1->UniQuery3->RecordCount)
     {
        DM1->UniQuery3->Last();
     }
    else
    {
        DM1->UniQuery3->RecNo = curItem;
        DBGrid1->SelectedRows->CurrentRowSelected = true;
    }
   }
  // DM1->UniQuery3->EnableControls();
        }
   } }