Revisión de código

[bucanero]

¿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
    //inicio del proceso
    // poner esto al principio del proceso fuera de todos los bucles     
    list:=TStringList.create;
    list.delimiter:=' ';

 ...

     // Calculo CAD2 cada vez que cambia el indice de per
    list.delimitedText:=per.Items[j].SubItems;
    cad2 := ValorCombinacion(list);

...

     // al final del proceso 
     list.free; //liberar el objeto
 end;