Code wird nicht ausgeführt - warum? (erledigt, danke an Popov)

[d7user1]

ok ist erledigt:

Delphi-Quellcode:

procedure ListView1Deletion(Sender: TObject; Item: TListItem);
begin
 TObject(Item.Data).Free;
 Item.Data := nil;
end;

// ...

ListView1.Items.Clear; // löscht auch alle Data-Objekte (getestet)