Pues la respuesta es simple y compleja a la vez.
Bien el elemento prod[Tcomponent(sender).Tag -1] no existe, o bien este elemento no es de tipo TProd.
Personalmente te recomiendo que crees una clase contenedora de elementos que use un TList, en lugar de usar directamente TList. Te quitará muchos problemas.
|