Einträge von ListView mit ein Object versehen

[Muetze1]

Delphi-Quellcode:

var
  lItem: TListItem;
begin
  ...

  lItem := ListView1.Items.Add;
  lItem.Data := DeinObjekt;
  lItem.Caption := 'huhu';

  ...
end;


begin
  TDeineObjektKlasse(ListView1.Items[0].Data).DeineProperties;
end;