Выполнить проверку на доступ к элементам TDBRadioGroup

Как организовать проверку на доступ к элементу TDBRadioGroup, а главное в каком месте, чтоб во время переоткрытия DataSet не летела ошибка «List index out of bounds (-1)».

procedure TFMain.dbrgStatisticaChange(Sender: TObject);
begin
  if (cbMethodSort.ItemIndex = 4)
    and (dbrgStatistica.ItemIndex = 0) then
    begin
        ibdsWord.Close; //<- летит ошибка
        ibdsWord.SelectSQL.Clear;
        ibdsWord.SelectSQL.Add(<<ARequire>>);
        ibdsWord.FetchAll;
        ibdsWord.Open;
        ibdsWord.First;
    end
end;