заполняю комбобокс из базы:
  ADOQuery1.Active := True;
  ADOQuery1.First;
 while not ADOQuery1.Eof do
   begin
СomboBox1.Items.Add(ADOQuery1.FieldByName('Gruppa_Name').AsString);
     ADOQuery1.Next;
   end;

после того как закрываю:
ADOQuery1.Active := False;

выдается ошибка.
подскажите что не так?