Componentes activos

[GustavoCruz]

Hola a todos...

Mi pregunta consiste en lo siguiente; tengo un formulario con un tpagecontrol que contiene dos TabSheet y en ellos hay componentes TEdit, para recorrer los componentes de un formulario, yo, ejecuto el siguiente código,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  componente:TComponent;
begin
  for i:=0 to Form1.ComponentCount-1 do
    begin
      componente:=Components[i];
      if componente is TEdit then
         TEdit(componente).Clear;
    end;
end;

la pregunta es cómo recorro, solamente, los componentes del TabSheet activo...

De antemano gracias por todos sus aportes