procedure TForm1.Button1Click(Sender: TObject);
var
 n: integer;
 p: integer;
begin
 ListBox1.Clear;
 with Notebook1 do
  begin
  for n := 0 to ControlCount - 1 do
  begin
  with TPage(Controls[n]) do
  begin
  ListBox1.Items.Add('Notebook Page: ' +
  TPage(Notebook1.Controls[n]).Caption);
  for p := 0 to ControlCount - 1 do
  ListBox1.Items.Add(Controls[p].Name);
  ListBox1.Items.Add(EmptyStr);
  end;
  end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

var

 M, N: Word;

begin

 for N := 0 to TabbedNotebook1.Pages.Count - 1 do

  with TabbedNotebook1.pages.Objects[N] as TTabPage do

  for M := 0 to ControlCount - 1 do

  if Controls[M] is TLabel then

  with Controls[M] as TLabel do

  Caption := 'Foo';

end;

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;

 var AllowChange: Boolean);

begin

 Notebook1.PageIndex := TabSet1.TabIndex;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

 M, N: Word;

begin

 for N := 0 to TabbedNotebook1.Pages.Count - 1 do

  with Notebook1.pages.Objects[N] as TPage do

  for M := 0 to ControlCount - 1 do

  if Controls[M] is TLabel then

  with Controls[M] as TLabel do

  Caption := 'Foo';

end;