Pagecontrol.Pages[1,2].TabVisible:=False;

pagecontrol.Pages[1].TabVisible:=False;
pagecontrol.Pages[2].TabVisible:=False;

procedure SetVisibleTab(n_visible: integer); //передаем номер вкладки, которая должна быть видна
var
  i: integer;
begin
  for i := 0 to PageControl1.PageCount-1 do
    if i=n_visible then PageControl1.Pages[i].TabVisible:=true
      else FPageControl1.Pages[i].TabVisible:=false;
end;

for i := 0 to PageControl1.PageCount-1 do
  PageControl1.Pages[i].TabVisible := i = n_visible;

procedure TF_Nastroyki.sImgLabel1Click(Sender: TObject);
var
  i: integer;
begin
 for i := 0 to PC_Nastroyka.PageCount-1 do
    if i=0 then PC_Nastroyka.Pages[i].TabVisible:=true
      else PC_Nastroyka.Pages[i].TabVisible:=false;
TabSheet1.Caption:= sImgLabel1.Caption;
end;
 
procedure TF_Nastroyki.sImgLabel2Click(Sender: TObject);
var
  i: integer;
begin
 for i := 0 to PC_Nastroyka.PageCount-1 do
    if i=1 then PC_Nastroyka.Pages[i].TabVisible:=true
      else PC_Nastroyka.Pages[i].TabVisible:=false;
TabSheet2.Caption:= sImgLabel2.Caption;
end;

procedure TForm1.sImgLabel1Click(Sender: TObject);
begin
  HidePages(PC_Nastroyka);
  PC_Nastroyka.Pages[TLabel(Sender).Tag].TabVisible := true
end;

procedure HidePages(PC: TPageControl);
var i: integer;
begin
  for i := 0 to PC.PageCount - 1 do
    PC.Pages[i].TabVisible := false;
end;