TreeView Items in Popupmenu übertragen

[API]

Hallo

Habe eine TreeView1 und ein Popupmenu1.
Wie übertrage ich nun die TreeView items ins Popupmenu.

Habe mal soviel zustande gebracht.

Delphi-Quellcode:

var Item:TMenuItem; 
begin 
  Item:= TMenuItem.Create; 
  Item.Caption:= TreeView1.Items[0].Text; 
  Item.OnClick:= MyEventHandler;  // onclick zuweisen
  PopupMenu.Items.Add(Item); 
end;

Kann mir jemand helfen, eine kleine Rekursive Funktion zu schreiben, um eine
beliebige TreeView Sturktur (Ordner + Unterordner) in ein Popupmenu zu populieren?