Data zu Treeview hinzufügen ?

[alzaimar]

Du hast zwei Zeilen vertauscht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var node: TTreeNode;
I: Integer;
data: PMyData;
Begin
  node:=TreeView1.Items.GetFirstNode;
  while node <> nil do
   begin
    if node.level = 1 then
    for i:= 0 to 3 do
//    data.Url := ListBox1.Items[i];
//    new( data);
    new( data);                    // ERST ALLOZIIEREN
    data.Url := ListBox1.Items[i]; // DANN VERWENDEN
    Node.Data := data;
    node := node.GetNext;
  end;
End;