Strings des letzten TreeView Knoten mit allen Children in ein Richedit schreiben

[Ajintaro]

Hallo DP !

Ich habe einen TTreeView mit einem Dutzend Einträgen:

Code:

[+]Mercedes
[-]BMW
 |-> schwarz
 |-> breit
 [-] Ausstattung
  |-> Zeile 1
  |-> Zeile 2

Mit folgendem Code öffne ich das jeweils letze Child und selektiere es:

Delphi-Quellcode:

TreeView.TopItem := tn.GetLastChild;
TreeView.Selected := tn.GetLastChild;

Mit diesem Code schreibe ich den Inhalt der "Ausstattung" in ein RichEdit (um es dann in die Zwischenablage aufzunehmen und in einer anderen Anwendung einzufügen)

Delphi-Quellcode:

procedure TFdetail.copy1Click(Sender: TObject);
var
  i: integer;
  tn:TTreeNode;
begin
 RichEdit1.Clear;
 with TreeView.Selected do
     for i := 0 to Pred(Count) do
     begin
       RichEdit1.Lines.Add(Item[i].Text);
     end;
  Richedit1.SelectAll;
  RichEdit1.CopyToClipboard;
end;

Funktioniert einwandfrei. Ich möchte aber nicht nur die Strings von GetLastChild im RichEdit haben, sondern den gesamten letzten Knoten:

Marke: BMW
Farbe: schwarz
Eigenschaft: breit
Ausstattung:
Zeile 1
Zeile 2

Wie kann ich denn den letzten (root)Knoten markieren anstatt seines lastChild ?