Integer in ListItem eines ListViews speichern

[Schwedenbitter]

Zitat von DennisHB:

Delphi-Quellcode:

...

procedure TForm1.Button1Click(Sender: TObject);
var
     Item : TListItem;
begin
     item := lv.Items.Add;
     Item.Data := Pointer(45);
     Item.Caption := 'Test';
end;

procedure TForm1.lvSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
     If Assigned(Item) then
          Caption := IntTostr(Integer(Item.Data));
end;

end.

Der Code läuft zumindest beim Bestücken der Liste einfach genial. Trotzdem nochmal eine Frage dazu:

Recht es aus, wenn ich beim Beenden des Programmes

Delphi-Quellcode:

procedure TForm1.Destroy(Sender: TObject);
begin
     lv.clear;
end;

mache oder muss ich die Liste durchgehen und die ganzen Einträge nebst dem in Data gespeicherten Integer von Hand "beseitigen"?
Ich selbst weiß es leider nicht, kann es mir nicht herleiten und möchte nicht um es herauszufinden mittels try and error FastMemory dazunehmen.

Gruß und Dank, Alex