Menampilkan Data Dari 2 Tabel Pada TreeView

Menampilkan Data Dari 2 Tabel Pada TreeView~Buat sobat yang masih setia menggunakan Delphi 6 seperti saya, kebetulan ada proyek kecil-kecilan dan butuh menampilkan data dari 2 tabel yaitu tabel kecamatan dan tabel desa pada tree view dimana tabel tersebut adalah tabel induk dan anak. Setelah saya cari-cari di dunia maya, tidak ketemu-ketemu, akhirnya memaksa saya untuk buat sendiri dengan logika ala kadarnya, tapi alhamdulillah tree viewnya jadi, seperti gambar berikut ini :

Barangkali sobat semilir mengalami hal serupa, mudah-mudahan script sederhana berikut ini bermanfaat

procedure TForm1.FormActivate(Sender: TObject);
var i, j : integer;
begin
   with ADOQuery1 do begin
       SQL.Clear;
       SQL.Text := 'select * from Tabel_kecamatan';
       Active := false;
       Active := true;
       First;
   end;

   with TreeView1.Items.AddFirst(  nil,  'Daftar Kecamatan dan Desa'  ) do Selected := true;

   for i := 1 to ADOQuery1.RecordCount do begin
      with TreeView1.Items.AddChildFirst(  TreeView1.Selected,  ADOQuery1.Fields.Fields[1].AsString) do begin
         Selected := true;
         MakeVisible;
      end;

      with ADOQuery2 do begin
          SQL.Clear;
          SQL.Text := 'select * from Tabel_desa where [Kode Kecamatan]=' +
                      QuotedStr(ADOQuery1.Fields.Fields[0].AsString);
          Active := false;
          Active := true;
          First;
      end;
      for j := 1 to ADOQuery2.RecordCount do begin
         with TreeView1.Items.AddChildFirst(TreeView1.Selected, ADOQuery2.Fields.Fields[2].AsString) do
         begin
            MakeVisible;
         end;
         ADOQuery2.Next;
      end;
      ADOQuery1.Next;
      TreeView1.Items.Item[0].Selected := true;
   end;
end;

Semilir hati