흐릿하게는 아마도...OwnerDraw 속성 True로 돌리시고...그 글자있는 영역을 그려주는 식으로 하셔야 할 거구요... 암튼 선택 못하도록 하는건
PageControl1.Enabled := False 해야하는데 그럼 다...선택이 안되니까...쓰기 그러실 거구... 코딩으로 하셔야하지 않을까요?
OnChanging 이벤트랑 OnChange 이벤트 써서요...
지금 ActivePageIndex가 1이고..인덱스 3인 페이지를 마우스로 눌렀다고 하면
OnChanging이벤트에서 ActivePageIndex 인덱스를 조사하면 1이고
Change 이벤트에서      ActivePageIndex 인덱스를 조사하면 3이거든요..
그러니까 만약에 3 페이지를 선택 못하게 한다며

var
  PreIndex  : integer;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  PreIndex := PageControl1.ActivePageIndex;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePageIndex = 3 then
    PageControl1.ActivePageIndex := PreIndex;
end;

뭐 이런식으로...해주시는 게 어떨까요...
가령
현재 0페이지 선택시에는 1,3,5 페이지로 이동할 수 없고
1페이지 선택시에는 0,2,3 페이지로 이동할 수 없다고 하면...
현재 페이지 기준으로 선택될 수 있는 페이지들의 tag를 0으로
선택될 수 없는 페이지들의 tag를 1로 만들어주는 함수 하나 짜셔서
tag에 의해 구분해주셔도 되고요...