Lass dir mal den Inhalt von data.Url anzeigen:
Delphi-Quellcode:
procedure TForm1.TreeView1DblClick(Sender: TObject);
var oNewNode : TTreeNode;
data: PMyData;
begin
data := (Sender as TTreeView).Selected.Data;
if data <> Nil Caption := data.url else caption := '';
end;