[nhr]

У меня в табличку выводится 2 одинаковых числа, но они должны быть разными, т.к. 2 разных БД, одна описана как databases1, а другая databases2

помогите найти ошибку!!

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
Ini:TIniFile;
s,s1:string;
c1,c2:integer;
begin
with StringGRid1 do
Cells[1,0]:='Count1';
with StringGRid1 do
Cells[2,0]:='Count2';
Ini:=TIniFile.Create(changefileext(paramstr(0),'.ini'));
//
s:=Ini.ReadString('databases1','ConnString','') ;
s1:=Ini.ReadString('databases1','Query','');
ExecuteDBQuery(s,s1,c1,c2);
stringGrid1.Cells[1,1]:=inttostr(c1);
//
//
s:= Ini.ReadString('databases2','ConnString','');
s1:= Ini.ReadString('databases2','Query','');
StringGrid1.Cells[1,2]:=inttostr(c1);

//
Ini.Free;
end;

//function ExecuteDBQuery(const ADBName, ADBConnStr: string):string;
procedure TForm1.executeDBQuery(const ADBName, ADBConnStr: string;var c1,c2:integer);
var i,j:integer;
s,s1:string;
  begin
ADOQuery1.Active:=False;
ADOConnection1.Connected:=False;
try
ADOConnection1.ConnectionString:=ADBName;
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(ADBConnStr);
ADOQuery1.Open;
//ExecuteDBQuery:=ADOQuery1.Fields[0].AsString;
c1:=ADOQuery1.Fields[0].AsInteger;
//c2:=ADOQuery1.Fields[1].AsInteger;
  finally
if ADOquery1.Active Then ADOquery1.Close;
ADOConnection1.Connected:=False;
  end;
 end;