Löschen von TreeView-Items

[EinDelphianer]

Hi an alle!
Ich hab leider ein Problem beim löschen von TreeView. Ich habe die Variable "Node" (TTreeNode)" deklariert. Wenn ich auf das TreeView klicke, wird dieser Variable das Selektierte Node zugewiesen.

Code:

  Node := TreeView.Selected

Jetzt aber mal zu meinem eigentliche Problem:
Ich will alle Subitems des Nodes löschen (sofern dieser welche hat), wenn er selekiert ist. Dazu hab ich folgendes versucht:

Delphi-Quellcode:

  if Node.HasChildren then
  begin
    For i := 0 to Node.Count - 1 do
    begin
      TreeView.Items.Delete(Node.Item[i]);

      If not Node.HasChildren then
      begin
        Break;
        TreeView.Items.Delete(Node);
      end;
    end;
  end;

Mir ist nicht klar, warum hier eine Fehlermeldung kommt. ("Der Listenindex überschreitet das Maximum (0)")

Wäre über jede Hilfe dankbar

MfG