一个关于pagecontrol控件使用的问题！(50分)

窗口内有一个pagecontrol控件，由此而产生了四个页面（tabsheet1,tabsheet2,tabsheet3,tabsheet4），现在我希望能用一个按钮分别在四个页面之间切换，如何实现呢？

设定一个全局参数，
var tab:integer;
点击时
case tab of
0:[切换到tabsheet1并设定参数为1]
1:[切换到tabsheet2并设定参数为2]
2:……
3：……
end;

先tabvisible全部为false,然后设定activepage或者activepageindex

ActivePage

var
Form1: TForm1;
i:integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
case i of
1:
begin
pagecontrol1.ActivePage :=tabsheet1;
inc(i);
end;
2:
begin
pagecontrol1.ActivePage :=tabsheet2;
inc(i);
end;
3:
begin
pagecontrol1.ActivePage :=tabsheet3;
inc(i);
end;
4:
begin
pagecontrol1.ActivePage :=tabsheet4;
i:=1;;
end;
end;
end;

多人接受答案了。