TreeView

Witam...mam pytanko czy ktos wie jak przeniesc itemy z TreeView do memo ???? w Tree View mam tak:

Glowny
|
+-aaa
| |
| -aaa1
| -aaa2
+-bbb
|
+-bbb1
|
-bbb2

i jak to zapisac w memo w postaci takiej:
Glowny\aaa
Glowny\aaa\aaa1
Glowny\aaa\aaa2
Glowny\bbb
Glowny\bbb\bbb1
Glowny\bbb\bbb1\bbb2

z góry dzieki za pomoc [browar] [browar] [browar]

wykombinowalem cos takiego:

var
  i: Integer;
begin
  try
    for i:= 0 to TreeView1.Items.Count do
    begin
      Memo1.Text:= Memo1.Text + #13#10 + TreeView1.Items.Item[i].Text;
    end;
  except
  end;
end;

nie jest to do konca to o co prosiles ale moze ci nasunie jakis kolejny pomysl...

pozdro.

Nie dokońca jest chyba to czego potrzebujesz ale się troche śpiesze troche dorobisz i bedzie ok
"var
i, x:Integer;
begin
memo1.clear;
for i:=0 to TreeRoom.Items.Count-1 do
for x:=0 to TreeRoom.Items[i].Count-1 do
begin
if Not (pos(Treeroom.Items[i].Text,memo1.lines.text)<>0) then
begin
Memo1.lines.add('+'+Treeroom.Items[i].Text);
end;
Memo1.lines.add(' -'+Treeroom.Items[i].Item[x].Text);
end;"