Link in ListBox und TTreeview !

[Delphiturbo]

Fehler in 2. Linie

Delphi-Quellcode:

  Data^.URL := 'www.google.de';
  ListBox1.AddItem (Data^.Name, Integer (Data)); // incompatible Types : Object and Integer !

Aber bis jetzt ist dieser Vorschlag diese Lösung :

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
I:Integer;
begin
i := ListBox1.ItemIndex;
Webbrowser1.Navigate(ListBox2.Items.Strings[i]);
end;

Wie kann ich diesen Trik in TTreeview machen ?
In TTreeview gibt es leider Parent und Child.

Wie soll der Code oben sein, wenn ich statt ListBox, einen TTreeview nehme
Was mir bei TTreeview gefäht, man kann Icons dazu verwenden
http://users.iafrica.com/d/da/dart/D...ics/Levels.gif
Oder kann man auch bei ListBox genauso Icons hinzufügen ?