procedure TForm1.Button1Click(Sender: TObject);
Var
Counter : Integer;
Item: TListView;
begin
  if FileExists(edtFileName.Text) then
  Begin
      lstbxheadlines.Items.Clear;
      SimpleRSS.LoadFromFile(edtFileName.Text);
      If SimpleRSS.Items.Count > 0 then
      Begin
          For Counter := 0 to SimpleRSS.Items.Count-1 do
          Begin
           lstbxheadlines.Items.Add(inttostr(counter)+'-'+SimpleRSS.Items.Items[Counter].Title);
                Item.AddItem(inttostr(counter), Listview1); <-------------
          end;
      end;
  end;
end;