наверное сначала надо поменять местами две строчки(заполняем текст запроса, затем выполняем):
divLike->SQL = AnsiString("SELECT * FROM t_division WHERE SHIFR LIKE '") + dShifr + AnsiString("%'");
divLike->Active = true;
а затем divLike->Fields[<номер поля>]...
если мне не изменяет память: есть еще и что то вроде divLike->FieldCount
Вот тут для Delphi:
www.cyberforum.ru/delphi-database/thread569817.html