[DELPHI]prendere item e subitem da listview

[funnylux]

//apro finestra dialogo per caricare file
procedure Tappsong.OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean);
var i:integer;
    ListItem: TListItem;

begin
  for i := 0 to openDialog1.Files.Count-1 do
    begin
  ListItem := ListView1.Items.Insert(i);
  ListItem.Caption := ExtractFileName(openDialog1.Files[i]);
  ListItem.SubItems.Text := ExtractFilePath(openDialog1.Files[i]);
  end;
  if openDialog1.Files.Count<>0 then
    begin
      countSong;
      enablePopMenu(true);
    end;
end;


//al click apro una canzone
procedure Tappsong.songListClick(Sender: TObject);
begin
   mp3File := mp3File + ' - ' +
   Listview1.Items[Listview1.ItemIndex].SubItems.text[1+Listview1.ItemIndex]+
   Listview1.Items[Listview1.ItemIndex].Caption
   ;
   totSong.Caption := mp3File;
end; 

la listview non la creo runtime

  object ListView1: TListView
    Left = 8
    Top = 81
    Width = 601
    Height = 137
    Columns = <
      item
        AutoSize = True
        Caption = 'Nome File'
      end
      item
        AutoSize = True
        Caption = 'url'
      end
      item
        Caption = 'durata'
      end>
    ColumnClick = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 8
    ViewStyle = vsReport
    OnClick = songListClick
  end