[AVOKADO]

У меня возникла такая проблема:
Имеется IniFile в котором записаны 2 базы данных, программа, которая с ними работает.
Я сделал так, чтобы под каждую БД в delphi был свой ADOQuary и ADOConnection. Но нужно сделать так, чтобы для них был один ADOQuary и ADOConnection, как мне сказали для этого надо воспользоваться ини файлом, но как это сделать????
Подскажите, напишите, пожалуйста!

var
i:integer;
st:string;
MyIni: TIniFile;
Dbs: TStringList;
IniFile: string;
begin
MyIni:=TInifile.Create(changefileext(paramstr(0),' .ini'));
Dbs:=TStringList.Create;
MyIni.ReadSectionValues('databases',Dbs);
for i:=0 to StringGrid1.RowCount-1 do
begin
st:=StringGrid1.Cells[1,i];
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
//StringGrid1.
ADOQuery1.SQL.Add('select count(template_id) as f1 from os_eqm.devices where template_id <>0');
ADOQuery1.Open;
while (not ADOQuery1.EOF)do
begin
StringGrid1.Cells[1,1]:=ADOQuery1.Fields[0].AsString;
ADOQuery1.Next;
end;


ADOQuery1.SQL.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Add('select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0');
ADOQuery1.Open;
while (not ADOQuery1.EOF)do
begin
StringGrid1.Cells[2, 1]:=ADOQuery1.Fields[0].AsString;
ADOQuery1.Next;
end;


ADOQuery3.SQL.Clear;
ADOQuery3.Close;
ADOQuery3.SQL.Add('select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0');
ADOQuery3.Open;
while (not ADOQuery3.EOF)do
begin
StringGrid1.Cells[2,2]:=ADOQuery3.Fields[0].AsString;
ADOQuery3.Next;
end;


ADOQuery3.SQL.Clear;
ADOQuery3.Close;
ADOQuery3.SQL.Add('select count(template_id) as f1 from os_eqm.devices where template_id <>0');
ADOQuery3.Open;
while (not ADOQuery3.EOF)do
begin
StringGrid1.Cells[1,2]:=ADOQuery3.Fields[0].AsString;
ADOQuery3.Next;
end;

end;
end;

[M.A.D.M.A.N.]

Ох какой ужасный код...
Можно все это упихать в один класс, у которого будет проперти сам датасет.
А там можно эти классы будет криейтить хоть по легион штук и быть в нескольких БД.
Это мое предположение