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

Ibquery1.SQL.Clear;
Ibquery1.SQL.Add('select max(id) from excponenta');
  for i := 1 to n1  do

Ibquery1.SQL.Clear;
Ibquery1.SQL.Add('select max(id) from excponenta');
Ibquery1.open;
n1:=Ibquery1.Fields[0].Value;

// очищаем
Ibquery1.SQL.Clear;
// пишем запрос
Ibquery1.SQL.Add('select max(id) from excponenta');
// выполняем запрос
Ibquery1.open;
// далее формируется виртуальная таблица, в которой колонки это то что вы указали в SELECT
// а строки - данные, которые подходят под запрос
// так как у вас ОДНА колонка и та внутренняя функция, то обратится к ней по имени мы не можем
// поэтому используем Fields[0]
// а так как у нас всего одна строка, то обойдемся без их перебора
n1:=Ibquery1.Fields[0].Value;

Ibquery1.SQL.Clear;
Ibquery1.SQL.Add('select max(id) as ABC from excponenta');
Ibquery1.Open;
//формируется виртуальная таблицы, состаящая из одного поля и одной строки. 
//Вот и обращаемся к этому полю по имени, которое мы сами определили в запросе (АВС).
//(далее текст от qwertehok)
//а так как у нас всего одна строка, то обойдемся без их перебора
n1:=Ibquery1.FieldByName('ABC').Value;