TListView und auf Object zugreifen

[RWarnecke]

Hallo zusammen,

anscheinend bin ich entweder zu blöd oder ich seh den Wald vor lauter Bäumen nicht. Ich befülle folgendermaßen eine ListView mit 2 Spalten :

Delphi-Quellcode:

  I := 0;
  LV_Kundendaten.Items.BeginUpdate;
  with DM_Main, DM_Main.UniQuery_KundenQ do
  begin
    Open;
    while not Eof do
    begin
      ListItem := LV_Kundendaten.Items.Add;
      ListItem.Caption := FieldByName('Feld1').AsString;
      ListItem.SubItems.Add(Format('V - %2.2d', [FieldByName('Feld2').AsInteger]));
      ListItem.SubItems.AddObject(IntToStr(FieldByName('Feld0').AsInteger), Pointer(I));
      I := I + 1;
      Next;
    end;
    Close;
  end;
  LV_Kundendaten.Items.EndUpdate;

Wie kann ich nun auf das Object zugreifen ?