Danke sehr
es funktioniert endlich mit dem Code :
Delphi-Quellcode:
procedure TForm1.TreeView1DblClick(Sender: TObject);
var oNewNode : TTreeNode;
data: PMyData;
begin
data := (Sender as TTreeView).Selected.Data;
if data <> Nil then
//Caption := data.url else caption := '';
Webbrowser1.Navigate(data.url);
end;