Как выделить несколько записей из DBGrid через ctrl или shift

void __fastcall TForm2::Button1Click(TObject *Sender)
{
//формируем запрос
   String s = "SELECT * FROM Tab1 WHERE ID IN (";
   for(int i = 0; i < DBGrid1->SelectedRows->Count; i++)
    {
      qAll->GotoBookmark(DBGrid1->SelectedRows->Items[i]);
      s += String().sprintf(L"%s, ", qAll->FieldByName("ID")->AsString);
    }
   s.Delete(s.Length() - 1, 2);
   s += ")";
//выполняем запрос
   qRep->Close();
   qRep->SQL->Text = s;
   qRep->Open();
}

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   int counterTotal = 0;
   for(int i = 0; i < DBGrid1->SelectedRows->Count; i++)
    {
      FDQuery1->GotoBookmark(DBGrid1->SelectedRows->Items[i]);
 
      Form1->StringGrid1->Cells[0][reportCounter] = FDQuery1->FieldByName("eventID")->AsString;
      Form1->StringGrid1->Cells[1][reportCounter] = FDQuery1->FieldByName("devName")->AsString;
      Form1->StringGrid1->Cells[2][reportCounter] = FDQuery1->FieldByName("counterTotal")->AsString;
 
      counterTotal +=  FDQuery1->FieldByName("counterTotal")->AsInteger;
 
      reportCounter++;
    }
 
    Form1->StringGrid1->Cells[0][reportCounter] = "Всього по групі: ";
    Form1->StringGrid1->Cells[2][reportCounter++] = IntToStr(counterTotal);
 
    Form1->StringGrid1->Cells[0][++reportCounter] = "**********************";
    Form1->StringGrid1->Cells[1][reportCounter] = "**********************";
    reportCounter++;
 
    Form1->StringGrid1->RowCount = reportCounter;
}