БД в виде дерева Treeview, Как привязать таблицу Понятия к веткам в дереве бд

procedure TForm1.RzToolButton1Click(Sender: TObject);
var
  kol1, kol2, kol3, i, j, n, q: integer;
  Nod, Nod1, Nodn: TTreeNode;
  st4, st1, st2, st3: string;
begin
  Screen.Cursor := crSQLWait;
  // очистить адресное пространство
  TreeView1.Items.Clear;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'select * from [Темы]';
  ADOQuery1.Open;
 
 
  kol1 := ADOQuery1.RecordCount;
  ADOQuery1.first;
  // ADOquery2.first;
  // Adoquery3.first;
  for n := 1 to kol1 do
  begin
    st1 := trim(ADOQuery1.FieldValues['Название темы']);
    Nod := TreeView1.Items.add(nil, st1);
    ADOQuery2.SQL.Clear;
    ADOQuery2.SQL.Text :=
      'SELECT Темы.[Название темы], Темы.[Номер Темы], Разделы.[Название раздела] FROM Темы INNER JOIN Разделы ON Темы.[Номер Темы] = Разделы.[Номер темы] where [Темы].[Номер темы] like ' + '"' + inttostr(n) + '"';
    ADOQuery2.Open;
    kol2 := ADOQuery2.RecordCount; // кол-во
    for j := 1 to kol2 do // perebor razdelov
    begin
      st2 := trim(ADOQuery2.FieldValues['Название раздела']);
      Nod1 := TreeView1.Items.Addchild(Nod, st2);
      ADOQuery3.SQL.Clear;
      st4:= 'SELECT Темы.[Номер Темы], Разделы.[Название раздела], Разделы.[Номер раздела], Понятия.[Понятие] FROM Темы INNER JOIN (Разделы INNER JOIN Понятия ON';
      Adoquery3.sql.text:=st4 +
      ' Разделы.[Номер раздела] = Понятия.[№ раздела]) ON Темы.[Номер Темы] = Разделы.[Номер темы] where [Темы].[Номер темы] like ' + '"' + inttostr(n) + '" and [Понятия].[№ раздела] like ' + '"' + inttostr(j) + '"';
      ADOQuery3.Open;
      kol3 := ADOQuery3.RecordCount; // кол-во
      for i := 1 to kol3 do
      begin                                              //
        st3 := trim(ADOQuery3.FieldValues['Понятие']);
        TreeView1.Items.Addchild(Nod1, st3);
        ADOQuery3.next;
      end;
 
      ADOQuery2.next;
 
    end;
 
    ADOQuery1.next;
  end;
 
  ADOQuery1.Close;
  ADoquery2.close;
  Adoquery3.close;
  Screen.Cursor := crArrow;
end;

for n := 1 to kol1 do
......

ADOQuery1.first;
while not ADOQuery1.Eof do begin
  <тело цикла>
  ADOQuery1.Next;
end;