¿Que contenido tienen los elementos de per.items? si como muestras en la imagen el contenido es "4 20 21 23 25" entonces debes convertir antes esa cadena a una lista de valores valida para la función ValorCombinacion() donde cada elemento contenga un único numero. O ajustar los parámetros de entrada a los que tu necesites.
prueba con
Código Delphi
[-]
var
list:TStringList;
...
begin
list:=TStringList.create;
list.delimiter:=' ';
...
list.delimitedText:=per.Items[j].SubItems;
cad2 := ValorCombinacion(list);
...
list.free; end;