[[Lepe]]

Solo una pequeña variante a lo propuesto por Ohcan:

Código Delphi [-]
procedure MirarDentro(Contenedor:TComponent);
var
  I:Integer;
begin
  for I := 0 to Contenedor.ControlCount-1 do
    begin
        MirarDentro(Contenedor.Controls[i]);
      //[...] Aquí lo que sea...
    end;  
end;

Si un contenedor no tiene componentes dentros, se hace su llamada, pero saldrá inmediatamente

saludos