Contar componentes

[petercat]

Buenas necesito contar los componentes creados en tiempo de ejecucuion que a su vez se crean en otro comoponente.
Explico:
En tiempo de ejecucion creo 5 comoponentes "Panel" y luego a su vez creo en 3 de estos componente un Button.
Pues bien, necesitaria saber cuantos button tengo en total en el Form o bien pasar por cada uno de los Panel y que me digan cuantos button existen en cada uno de ellos, pero el resultado final seria saber cuantos button.


Creo los paneles:

Bit := Tpanel.Create(Self);
Bit.Parent := From1;
Bit.Left := 1;
Bit.Top := 1;
Bit.Height := 25 ;
Bit.Width := 25 ;


Creo los Button


Bit := Tbutton.Create(Tpanel);
Bit.Parent := Tpanel;
Bit.Left := 1;
Bit.Top := 1;
Bit.Height := 25 ;
Bit.Width := 25 ;


Cuento los paneles:


for i := 0 to componentCount - 1 do
if components[i] is Tpanel then
ShowMessage(IntToStr(I));


Pero el problema es que no puedo contar los Button que hay dentro de los Paneles


Gracias