Кнопка "Выбрать все" для Listview

ListView1->Items->Item[i]->Checked=true;

ListView1->SelectAll();

TListColumn  *NewColumn;
TListItem  *ListItem;
sql="Select * from Кафедра where Кафедра.Институт=6";
DataModule5->KafQuery->SQL->Text=sql;
   DataModule5->KafQuery->Active= true;
ListView1->Items->BeginUpdate();
while (!DataModule5->KafQuery->Eof) {
TListItem* Item = ListView1->Items->Add();
Item->Caption = DataModule5->KafQuery->FieldByName("Полное название")->AsString;
Item->SubItems->Add(DataModule5->KafQuery->FieldByName("Код")->AsString);
DataModule5->KafQuery->Next();
}
ListView1->Items->EndUpdate();

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i=0; i<ListView1->Items->Count;i++)
{
ListView1->Items->Item[i]->Selected=true;
}
 
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString sql;
DataModule5->GroupQuery->SQL->Clear();
DataModule5->GroupQuery->Active=false;
for(int i=0; i<ListView1->Items->Count;i++)
{
 if (ListView1->Items->Item[i]->Checked) {
 if (sql!="")
 {
    sql+=" or "     ;
 }
    sql+= "ООП.Кафедра=" + ListView1->Items->Item[i]->SubItems->Strings[0];
 }
    }
  DataModule5->GroupQuery->SQL->Text ="SELECT Группа.*"
        "FROM (Кафедра INNER JOIN ООП ON Кафедра.Код=ООП.Кафедра)"
        "INNER JOIN (Учебный_план INNER JOIN Группа"
        "ON Учебный_план.Код=Группа.Учебный план)"
        "ON ООП.Код=Учебный_план.ООП"
        "where (" + sql +")";
            DataModule5->GroupQuery->Active=true;
 
}