TreeView Data freigeben, so ?

[Lannes]

Hallo,

ist nachfolgender Code richtig?
Data beinhalt je eine Stringliste.

Delphi-Quellcode:

for i := 0 to TreeView1.Items.Count-1 do
  if TreeView1.Items.Item[i].Data <> nil then
    begin
    Dispose(TreeView1.Items.Item[i].Data);
    TreeView1.Items.Item[i].Data := nil;//diese Zeile erforderlich?
    end;

MfG
Lannes