Listview OwnerData

[lucius]

So ich habe jetzt folgendes gemacht in ListviewData:

Delphi-Quellcode:

procedure THaupt.ListViewData(Sender: TObject; Item: TListItem);
Var
i: Integer;
listitem : TListItem;
z: TStrings;
begin
      z := CreateStrings(SimpleRSS.Items.Items[i].Description);
      listitem := listview.Items.add;
      listitem.Caption := IntToStr(Succ(i));
      z.Values['Added'] := Parse(' ', z.Values['Added'], 1);
      listitem.SubItems.add(z.Values['Added']);
      listitem.SubItems.add(z.Values['Category']);
      listitem.SubItems.add(SimpleRSS.Items.Items[i].Title);
      listitem.SubItems.add(z.Values['Size']);
      listitem.SubItems.add(z.Values['Status']);
      listitem.SubItems.add(z.Values['Speed']);
      z.Free;
end;

und in Button1.Click:

Delphi-Quellcode:

if FileExists(label17.caption + 'rss.xml') then
 Begin
 Listview.Clear;
 Listbox1.Clear;
 Listbox2.Clear;
  SimpleRSS.LoadFromFile(label17.caption + 'rss.xml');
    For i := 0 to SimpleRSS.Items.Count - 1 do
      Begin
      Listview.Items.Count := SimpleRSS.Items.Count;
      Listview.Repaint;
      end;
 end;

OwnderData steht jetzt auf TRUE.
Aber ich bekomme nen Stack Overflow??
Bitte Hilfe.