Data zu Treeview hinzufügen ?

[Delphiturbo]

Ich habe alle Linke für Childern in ListBox1 sortiert gespeichert
ich habe in Treewiew 4 Childern
Google
Yahoo
MSN
GMX
dann habe ich in ListBox1 die Linke gespeichert :
http://google.de
http://yahoo.de
http://msn.de
http://gmx.de

Ich habe den Code so geschrieben :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var node: TTreeNode;
Begin
node:=TreeView1.Items.GetFirstNode;
  while node <> nil do
   begin
    if node.level = 1 then // nur Childern
    Node.Data :=  // ich möchte nun den 1. Link vom ListBox1 holen. Und hier bitte ich euch um Hilfe    
    node := node.GetNext
  end;
End;

Dann soll es mit dem Code funktionen :

Delphi-Quellcode:

procedure TForm1.TreeView1DblClick(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
    data := (Sender as TTreeView).Selected.Data;
    if data <> Nil then
    
    Webbrowser1.Navigate(data.url);
end;
end.