[DELPHI]prendere item e subitem da listview

[123delphi321]

mancano troppe cose per poter utilizzare questo codice...
es.: totSong ... countsong

non riesco a fare una prova cosi.

e poi io sto facendo confusione che componente e' TlistItem e il TListview.

non mi e' chiara.....

io per caricare il listview farei una cosa del genere...

  for i := 0 to openDialog1.Files.Count-1 do
    begin
     ListView1.Items.Add;
     ListView1.Items[ListView1.Items.Count-1].Caption:=ExtractFileName(openDialog1.Files[i]);
     ListView1.Items[ListView1.Items.Count-1].SubItems.Text:= ExtractFilePath(openDialog1.Files[i]);
  end;