[DELPHI] Cancellazione di nodi e sottonodi in un controllo TreeView

[melk75]

Ciao a tutti, spero che dalle vostre parti faccia meno caldo che in Sicilia visto che siamo solo a maggio! :master:
Sto sviluppando un programmino in cui uso un componente TreeView, nel quale vengono caricati manualmente dei nodi con i rispettivi sottonodi. Ad un certo punto ho bisogno che i nodi e i sottonodi vengano cancellati completamente...insomma che non rimanga più nulla visualizzato nel componente! Credevo di aver risolto così:

procedure TFormMyTricks.BitBtn1Click(Sender: TObject);
VAR
  i:integer;
  ic:integer;
begin
  ic:=TreeView1.Items.Count;
  for i := 0 to ic - 1 do
    begin
      TreeView1.Items[i].Delete;
    end;

invece no ! Cancella fino ad un certo punto e poi da errore con mess: 'invalid index'!!! :berto:
Dove sto clamorosamente sbagliando!!!???