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;