The following example demonstrates getting a list of the pages in a TNotebook component, and listing the controls on each page of the Notebook component. The list is added into a Listbox component. Example:

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