procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
MyNode := Node;
end;

procedure TForm1.TreeView1Click(Sender: TObject);

begin    
DM_UNIT1.DataModule1.ADOConnection2.Connected:=false;
MyNode:=TreeView1.Selected;

while MyNode <> nil do

  begin
    If (MyNode.Text<>'Каталог объектов')and(MyNode.ImageIndex= 0 ) and   (MyNode.Expanded=true) then
       begin      /////
           If DM_UNIT1.DataModule1.ADOConnection2.Connected=false then
                begin      

          DM_Unit1.DataModule1.ADOConnection2.ConnectionString :=
          'Provider = SQLOLEDB.1; Password =;'+
          'Presist Security Info = True; User ID=;'+
          'Initial Catalog = master; Data Source ='+MyNode.Text+';';
          DM_Unit1.DataModule1.ADOConnection2.ConnectionTimeout :=  15 ;
          DM_Unit1.DataModule1.ADOQuery1.Active := true;
                
                end;      
         end;     
    MyNode:=MyNode.GetNext;
   
   end;     
end;