[frudolph]

En Todo caso tendrías que recorrer cada Componente en Forma recursiva. Para simplificarlo podría ser algo así como:

if Components[i].ComponentCount > 0 then Procesar(Components[i]);