Мой пример для студентов: улицы-дома

#define HOUSETAG ((BYTE)1)
#define STREETTAG ((BYTE)2)
typedef struct {
BYTE Tag; // Тег (принимает значения STREETTAG,HOUSETAG
int ID; // идентификатор записи (Street_ID или House_ID)
}TREEDATA;

//---------------------------------------------
void TfrmTreeView::ShowTree(){
// наполнение TreeView
TTreeNode *t1,*t2,*t3;
AnsiString fname, nomflat;
int Street_ID,House_ID,Klient_ID;
TREEDATA *td;

queStreets->Active=true;
// лес деревьев двухуровневый. В корне - улица, дом - на уровень ниже
for(queStreets->First();!queStreets->Eof; queStreets->Next()){
Street_ID=queStreets->FieldByName("Street_ID")->AsInteger;
queHouses->ParamByName("Street_ID")->Value=Street_ID;

// запомним данные, ассоциированные с узлом
// их следует освободить, когда буде уничтожаться дерево
// или форма, которая его содержит
td=new TREEDATA;
td->Tag=STREETTAG;
td->ID=Street_ID;
// добавим улицу корень еще одного дерева в лесу
t1=tw->Items->AddObject(NULL,
queStreets->FieldByName("Street_Nam")->AsString,
td);
t1->Data=td;
t1->SelectedIndex=0;
t1->ImageIndex=0;
queHouses->Active=true;

for(queHouses->First();!queHouses->Eof;queHouses->Next()){
House_ID=queHouses->FieldByName("House_ID")->AsInteger;
// запомним данные, ассоциированные с узлом
// их следует освободить, когда будет уничтожаться дерево
// или форма, которая его содержит
td=new TREEDATA;
td->Tag=HOUSETAG;
td->ID=House_ID;
// новый дом - потомок улицы
t2=tw->Items->AddChildObject(t1,
queHouses->FieldByName("Nomer")->AsString,
td);
t2->ImageIndex=1; // индекс изображения невыбранного узла
t2->SelectedIndex=1; // индекс изображения выбранного узла
}
queHouses->Active=false;
}
queStreets->Active=false;
}