DBGrid - удаление записи из базы

void __fastcall TMainForm::Button1Click(TObject *Sender)
{
   if (dbg_doctor->SelectedRows->CurrentRowSelected)
   {
       ADOQuery1->Delete();
       dbg_doctor->SelectedRows->Clear();
   }
}

void __fastcall TMainForm::DelString()
{
       if(DBGrid1->SelectedRows->Count == 0)
       {
         AnsiString ert = "\t\t\tНе выделена ни одна строка в базе!!!!!!!!\n\nДля удаления строки в базе, выберите необходимую строку левой кнопкой мыши, а затем нажмите на кнопку УДАЛИТЬ ДАННЫЕ\n\nДля удаления нескольких строк из базы, зажмите клавишу Ctrl на клавиатуре и выберите необходимые строки для удаления левой кнопкой мыши, а затем нажмите на кнопку УДАЛИТЬ ДАННЫЕ\n\nДля снятия выделения строк используйте клавишу Esc";
         if (Application->MessageBox(ert.c_str(),"Предупреждение",MB_OK +MB_TOPMOST+ MB_ICONEXCLAMATION)==IDOK)
         {
           return;
         }
       }
 
         if(DBGrid1->SelectedRows->Count > 0)
         {
          ADOQuery1->DisableControls();
          TStringList *dwe = new TStringList();
          dwe->Clear();
          int curItem = ADOQuery1->RecNo;
           if(DBGrid1->SelectedRows->Count == 1)
          {
            AnsiString ds = "Вы деиствительно хотите удалить выбранную строку? \n\n" + IntToStr(ADOQuery1->FieldByName("Invent_Number")->AsInteger)+" - "+ADOQuery1->FieldByName("Number_in_Lan")->AsString+" - "+ADOQuery1->FieldByName("Department")->AsString+" - "+ADOQuery1->FieldByName("Processor")->AsString+" - "+ADOQuery1->FieldByName("Memory")->AsString+" - "+ADOQuery1->FieldByName("HDD")->AsString+" - "+ADOQuery1->FieldByName("Room")->AsString;
             if (Application->MessageBox(ds.c_str(),"Подтверждение удаления строки из базы данных",MB_YESNO +MB_TOPMOST+ MB_ICONQUESTION)!=IDYES)
            {
              DBGrid1->SelectedRows->Clear();
              ADOQuery1->EnableControls();
              delete dwe;
              dwe = NULL;
              return;
            }
          }
 
                 
                 ADOQuery1->First();
 
                 while(!ADOQuery1->Eof)
                {
                   if(DBGrid1->SelectedRows->CurrentRowSelected)
                  {
                   dwe->Add(IntToStr(ADOQuery1->FieldByName("id")->AsInteger));
                  }
                   ADOQuery1->Next();
                }
 
                    AnsiString asd = StringReplace(dwe->Text,"\r\n"," ",TReplaceFlags()<<rfReplaceAll);
                    asd = StringReplace(asd.Trim()," ",",",TReplaceFlags()<<rfReplaceAll);
 
                     ADOQuery1->Close();
                     ADOQuery1->SQL->Clear();
                     ADOQuery1->SQL->Text = "DELETE FROM имя_таблицы WHERE id IN ("+asd+")";
                     ADOQuery1->ExecSQL();
                     DBGrid1->SelectedRows->Clear();
                   
                    if(ADOQuery1->RecordCount > 0)
                  {
                    if(curItem > ADOQuery1->RecordCount)
                   {
                     ADOQuery1->Last();
                   }
                    else
                   {
                    ADOQuery1->RecNo = curItem;
                   }
                  }
 
 
         
 
          ADOQuery1->EnableControls();
          delete dwe;
          dwe = NULL;
     }
 
 
}
//---------------------------------------------------------------------