Hola Bucanero, estoy con tu código pero en
Código Delphi
[-]cad2 := ValorCombinacion(per.Items[j].SubItems);
da error, no reconoce "subitems". <<Per>> es un listBox, quizás sea por eso., así que por ahora no puedo ver que tal funciona.
Un saludo y gracias.