наверное сначала надо поменять местами две строчки(заполняем текст запроса, затем выполняем):
divLike->SQL = AnsiString("SELECT * FROM t_division WHERE SHIFR LIKE '") + dShifr + AnsiString("%'");
divLike->Active = true;
а затем divLike->Fields[<номер поля>]...