Data zu Treeview hinzufügen ?

[Delphiturbo]

Es passiert aber nichts

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
          oNewNode := treeview1.Items.AddObject(nil, 'Suchmachinen', Nil);
          new(data);
          data.url := 'http://www.google.de';
          treeview1.Items.AddChildObject( oNewNode, 'google', data );
          new(data);
          data.url := 'http://www.yahoo.de';
          treeview1.Items.AddChildObject( oNewNode, 'yahoo', data );

end;

procedure TForm1.TreeView1DblClick(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
webbrowser1.Navigate(data);
end;

end.