inifile и БД часть 2

[nhr]

Ну значит код сделан, но выдает ошибку invalid sql property

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
s,s1,AConnectionString,AQuery:string;

begin
ADOQuery1.Active := False;
  ADOConnection1.Connected := False;
  try
ADOConnection1.ConnectionString:=AConnectionString;
AdoCOnnection1.Connected:=True;
ADOQuery1.SQL.Clear;
//ADOQuery1.Close;
ADOQuery1.SQL.Add(AQuery);
ADOQuery1.Open;
StringGrid1.Cells[1,1]:=ADOQuery1.Fields[0].AsString;
finally
if ADOquery1.Active Then ADOquery1.Close;
ADOConnection1.Connected:=False;
  end;
  end;

procedure TForm1.Button4Click(Sender: TObject);
var
Ini:TIniFile;
Dbs: TStringList;
s,s1:string;

begin
Ini:=TIniFile.Create(changefileext(paramstr(0),'.ini'));
Dbs:=TStringList.Create;
s:=INi.ReadString('databases1','connstring','') ;
s1:=Ini.ReadString('databases1','query','');
with StringGrid1 do
Cells[1,1]:=adoquery1.Fields[0].AsString;

s:= Ini.ReadString('databases2','ConnString','');
s1:= Ini.ReadString('databases2','Query','');
with StringGrid1 do
Cells[2,1]:=adoquery1.Fields[0].AsString;

Ini.Free;
end;

iniFile:
[databases1]
ConnString=DATA
Query=select count(template_id) as f1 from os_eqm.devices where template_id <>0

[databases2]
ConnString=DEVELOP
Query=select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0

предполагаю, что в sql не правильно записан вызов:
select
(select count(template_id) from os_eqm.devices where template_id <>0)+
(select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0)
from dual

[evg_m]

две этих строки

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(AQuery);

можно заменить на одну такую

ADOQuery1.SQL.Text:=Aquery;

А чему здесь равно значение локальной переменной Aquery ?