Очистить все TEdit на TabSheet

[Shouldercannon]

Есть PageControl с двумя TabSheet на которых есть по два Edit.
Хочу очистить все Edit на TabSheet2

procedure TForm13.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to PageControl1.Pages[1].ComponentCount - 1 do
  begin
    if (PageControl1.Pages[1].ComponentCount[I] is TEdit) then (PageControl1.Pages[1].ComponentCount[I] as TEdit).Clear;
  end;
end;

В итоге получаю
[dcc32 Error] Unit13.pas(39): E2016 Array type required
на

PageControl1.Pages[1].ComponentCount[I]

[TaLadno]

procedure ClearAllEditsOnTabSheet(ATabSheet: TTabSheet);
var i: integer;
begin
  for i:=0 to ATabSheet.ControlCount-1 do
    if ATabSheet.Controls[i] is TEdit then
      (ATabSheet.Controls[i] as TEdit).Text := ''; // ну (ATabSheet.Controls[i] as TEdit).Clear; если так хоцца
end;

[min@y™]

procedure ClearEdits(Parent: TWinControl);
var
  Control: TControl;
  Index: Integer;
begin
  if not Assigned(Parent)
    then Exit;

  for Index:= 0 to Parent.ControlCount - 1 do
   begin
     Control:= Parent.Controls[Index];
     if Control is TCustomEdit
       then TCustomEdit(Control).Clear();
   end;
end;