[vertraut]

Есть база с таблицами. Подключения настроил, через Grid выводит таблицу нормально. Хотел бы чтобы текст SQL запросов брался из переменной, а результат запроса записывался в другую переменную.
Помогите пожалуйста с задачей, а то сижу неделю и не получается.

Код:

procedure TForm1.btn1Click(Sender: TObject);
var i: array of string;
    q: string;
begin
  
  q := 'SELECT AA FROM TABLE WHERE BB = 123';
  DataModule1.qry1.SQL.Text := q;
  DataModule1.qry1.Open;
  i := DataModule1.qry1.Fields[0].AsInteger;
  DataModule1.qry1.Close;

end;