TListItem.subitems e' un TStrings (dall'help di delphi...)
Vi accedi con item.subitems[0] per il primo, item.subitems[1] per il secondo, etc... e sono stringhe...
ovvero
per caricare, dovrebbe funzionare qualcosa tipo
codice:
var titolo, cantante: string;
  ...
  item.subitems.add("O sole mio");
  item.subitems.add("Pavarotti");
  ...
  titolo := item.subitems[0];
  cantante := item.subitems[1];