TTreeNode gelöscht - Thread gelöscht...?

[shmia]

Delphi-Quellcode:

procedure TForm1.MakeNewThread(const tname:string);
var
   thread : TThread;
   node : TTreeNode;
begin
   thread := TMyThread.Create(True);  // neuen Thread erzeugen
   node := TreeView1.Items.Add(nil, tname);  // neuen Knoten erzeugen
   node.Data := Pointer(thread);     // <-- Zeiger auf Thread-Objekt im TreeNode merken
   thread.Resume;  // Thread losrennen lassen
end;