TListView.Item.Data wird nicht zerstört

[Muetze1]

Moin!

Ich mache das bei eigenen Klassen meist im Destructor oder im FormDestroy. Geht ja flink:

Delphi-Quellcode:

Procedure TForm1.FormDestroy(Sender: TObject)
Var
  Data : TDataClass;
Begin
  While ( ListView.Items.Count > 0 ) Do
  Begin
    Data := TDataClass( ListView.Items[0].Data ); // ich habe die Eigenschaft nicht genau im Kopf, du weisst ja was gemeint ist
    Data.Free;
    ListView.Items.Delete(0);
  End;
End;

So spare ich mir noch eine lokale Schleifenvariable...

MfG
Muetze1