[dec]

Hola,

Algo así:

Código Delphi [-]

var
  i: integer;
begin
  for i := 0 to PageControl1.ActivePage.ComponentCount-1 do
  begin
    //
  end;
end;