{
This example requires a new TPageControl with no new pages 
created at design time, and a TUpDown control, also from the
Win95 page of the component palette.  The form OnCreate 
event handler adds several new TabSheet controls to the Page
Control.  The UpDown1Click event handler fires when the user
clicks the up or down button on the TUpDown control.  The
SelectNextPage method of the Page Control goes forward the
comparison (Button = btNext) evaluates as true.  If Button
is not btNext, the previous Tab Page is selected.
} 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 9 do
    with TTabSheet.Create(Self) do
    begin
      PageControl := PageControl1;
      Caption := 'TabSheet #' + IntToStr(i);
    end;
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  PageControl1.SelectNextPage(Button = btNext);
end;
 
