procedure Tstamm.TreeViewInit;
var
   tv: TTreeView;
   n: TTreeNode;
   m: TTreeNode;
   ipSender : string;

begin
   tv := TreeView1;
   tv.Items.BeginUpdate;
   tv.Items.Clear;

   db_database1.First;
   db_database2.First;
   db_database3.First;

   while not db_database1.Eof do
   begin
      n := tv.Items.AddChild(nil,db_database1.FieldByName('Name').AsString);

      while not db_database2.eof do
      begin
         m := tv.Items.AddChild(n, db_database2.FieldByName('Nummerbeschreibung').AsString);
         while not db_database3.eof do
         begin
            ipSender := db_database3.FieldByName('Bezeichnung').AsString;
            with tv.Items.AddChild(m, ipSender) do
            begin
            end;
            db_database3.Next;
         end;
         db_database2.Next;
      end;
      db_database1.Next;
   end;
   tv.FullExpand;
   tv.Items.EndUpdate;
end;