object tvMain: TTreeView
      Left =  1 
      Top =  1 
      Width =  167 
      Height =  456 
      Align = alClient
      Indent =  19 
      TabOrder =  0 
    end

      tvMain.Items.BeginUpdate;
      tvMain.Items.clear;
      sqorg.First;
      while not sqorg.eof do
        begin
         if sqOrg.Fieldbyname('name').asString<>'' then
          begin
            inc(node_id);
            tvMain.Items.Add(nil,sqOrg.Fieldbyname('name').asString);
            tvMain.Items[node_id].HasChildren:=true;
          end;
          sqorg.next;
         end;
      tvMain.Items.EndUpdate;