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];