TTreeView - Knoten umbenennen

[regiontop]

Hallo,

ich habe folgendes kleines Problemchen:

Ich habe aus einer Datenbank Adresse, Gebäude und Wohnung in eine TTreeView eingeladen. Das funktioniert auch ganz gut, doch ich würde gern die Unterknoten umbenennen. Da aber die Unterknoten auf die oberen Knoten aufbauen, erscheint immer eine EOLEException.

Gibt es einen anderen Weg?
Vorab schon mal Danke für alle Antworten!

Delphi-Quellcode:

var
aktGeb: Tgeb;
aktNode: TTreeNode;
...
aktNode:=TreeView1.items.addchild(node, inttostr(aktGeb.HNR));
TreeView1.items.addchild(aktNode, 'Dummy');
...

Delphi-Quellcode:

var
aktGeb: Tgeb;
aktNode: TTreeNode;
...
aktNode:=TreeView1.items.addchild(node, 'Hausnummer: '+inttostr(aktGeb.HNR));
//schlägt fehl --> EOLEException: Datentypen in Kriterienausdruck unverträglich
TreeView1.items.addchild(aktNode, 'Dummy');
...

Gibt es einen Weg?

Bisher sieht der Baum so aus (direkt mit Feldern der DB gefüllt):

Strassen
-ABC Straße
--23
--25
---eins
---zwei
--27
-DEF Straße
...

Optimal wäre folgendes Bild:

Strassen
-ABC Straße
--Hausnummer 23
--Hausnummer 25
---Wohnung eins
---Wohnung zwei
...