Код обработчика кнопки в отчёте

begin
if (CityAll.Items.Count>0) then
begin
try
Q1.Active:=false;
Q1.SQL.Clear;
Q1.SQL.Add('SELECT DISTINCT Channel, PriceDate FROM TV_CPP_'+CityAll.Items[CityAll.ItemIndex]);
Q1.Active:=true;
except
ShowMessage('Ïðàéñ-ëèñòà ïî ýòîìó ãîðîäó íåò');
end;
end;
end

Говорит, что пере выражением следующим после try и except должен стоять оператор присваивания, а вместо нужного оператора точка с запятой.
Иными словами, вместо
try
Q1.Active:=false;

хочет
try
:=Q1.Active;

Как победить?