[求助]PageControl中tabsheet怎样调用

我在界面里使用了1个PageControl1和6个TabSheet。我想如果我在tabsheet1中按'新建'则显示tabsheet4,如果我在tabsheet2中按'新建'则显示tabsheet5,如果我在tabsheet3中按'新建'则要显示tabsheet6.怎么样才能实现这样的功能呢?谢谢!!
我自己写的错在哪里呢??

procedure Tfziliao.SpeedButton1Click(Sender: TObject);
begin
if (pagecontrol1.ActivePage=tabsheet1) then
begin
tabsheet2.Visible :=false;
tabsheet3.Visible :=false;
tabsheet4.Visible :=true;
tabsheet5.Visible :=false;
tabsheet6.Visible :=false;
end;
if (pagecontrol1.ActivePage=tabsheet2) then
begin
tabsheet1.Visible :=false;
tabsheet3.Visible :=false;
tabsheet4.Visible :=false;
tabsheet5.Visible :=true;
tabsheet6.Visible :=false;
end
else
begin
tabsheet1.Visible :=false;
tabsheet2.Visible:=false;
tabsheet3.Visible :=true;
tabsheet4.Visible :=false;
tabsheet5.Visible :=false;
tabsheet6.Visible :=true;
end;
end;