Data zu Treeview hinzufügen ?

[Delphiturbo]

das liegt nicht an Begin und End von der For-Schleife :

Delphi-Quellcode:

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

Wenn ich das Programm kompiliere, dann erscheint zwar keine Fehlermeldung, bleibt das Programm unsichtbar bis ich mit ALT+Schift+Entf beande !!!

Ein Freund von mir hat das Problem mit einer anderen Idee gelöst, wollte ich aber gerne diesen Code weiterbearbeiten bis ich ihn zum laufen bringe.