Moin !
So nachdem ich mein Löschen erweitert habe und alles auf NIL setze und auch rekursiv lösche gehts nun
Delphi-Quellcode:
procedure Node_Delete (Node : TTreeNode);
begin
if( Node = nil ) then Exit;
while node.HasChildren do begin
Node_Delete(node.Item[0]);
end;
//ShowMessage('Lösche : ' + Node.Text);
{Free the class}
if( Node.Data <> nil ) then begin
TNodeInfo(Node.Data).NodeParent := NIL;
Node.Data := NIL;
TNodeInfo(Node.Data).Free;
end;
{Delete the node}
Node.Delete;
Node := NIL;
Node.Free;
end;