Recorrido de componentes

[sur-se]

Hola. Utilizo Delphi 5. Estoy realizando un proceso que debe recorrer todos los objetos incluidos en el form para darles valor a unas propiedades. El problema lo tengo en recorrer todos los objetos. Incialmente lo plantee de la forma siguiente:

with Form1 do
begin
       for i:=0 to ControlCount-1 do Procesar(Controls[i]);
end;

El problema es que sólo recorre a un nivel, es decir, si tengo un panel que dentro tiene objetos, se queda en el panel y no procesa los elementos de dentro.
Bueno, lo planteo entonces como una función recursiva y ya está, pero el problema es que no puedo saber si un componente tiene a su vez mas hijos, ya que el proceso lo defino así

procedure analizar(Compo:TControl);
var i:integer;
begin
       if Compo.ControlCount>0 then
       begin
               for  i:=0 to Compo.ControlCount-1 do Analizar(Compo.Controls[i]);
       end
       else Procesar(Compo);

end;

Sin embargo, la propiedad ControlCount no existe para TControl. Una opción sería utilizar el with:
with Compo as TWinControl do ....
No sé cual sería la mejor opción. ¿Alguien se le ocurre la forma correcta?