Прокрутка вкладок PageControl'a

procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBar1.Max:=PageControl1.PageCount;
end;
 
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
if scrollBar1.Position-1<0 then
  PageControl1.ActivePage:=PageControl1.Pages[0]
else
  PageControl1.ActivePage:=PageControl1.Pages[scrollBar1.Position-1] ;
end;

procedure TForm1.AdvOfficePager1Change(Sender: TObject);
begin
  ScrollBar1.Max := AdvOfficePager1.TabScroller.Max;
  ScrollBar1.Position := AdvOfficePager1.ActivePageIndex + 1;
  ScrollBar1.Visible := AdvOfficePager1.TabScroller.Visible;
end;
 
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  AdvOfficePager1.TabScroller.Position := ScrollBar1.Position;
  AdvOfficePager1.Refresh;
end;
 
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if WheelDelta > 0 then
    begin
      AdvOfficePager1.ScrollLeftBtnClick;
      AdvOfficePager1.Refresh;
      ScrollBar1.Position := AdvOfficePager1.TabScroller.Position;
    end
  else
    begin
      AdvOfficePager1.ScrollRightBtnClick;
      AdvOfficePager1.Refresh;
      ScrollBar1.Position := AdvOfficePager1.TabScroller.Position;
    end;
end;

procedure TForm1.AdvOfficePager1Change(Sender: TObject);
Var
  TrackHeight: Integer; { the size of the scroll bar track }
  MinHeight: Integer; { the default size of the thumb tab }
begin
  With ScrollBar1 Do
  Begin
    Max := AdvOfficePager1.TabScroller.Max;
    Position := AdvOfficePager1.ActivePageIndex + 1;
    Visible := AdvOfficePager1.TabScroller.Visible;
    MinHeight := GetSystemMetrics(SM_CYVTHUMB); { save default size }
    If Visible Then
    Begin
      TrackHeight := ClientHeight - 2 * GetSystemMetrics(SM_CYVSCROLL);
      PageSize := TrackHeight div (Max - Min + 1);
      if PageSize < MinHeight then PageSize := MinHeight;
    End;
  End;
end;

    Max := AdvOfficePager1.AdvPageCount;

Function FindControls(Index: Integer):TComponent;
Var
  i : Integer;
Begin
  Result:=Nil;
  With AdvOfficePager1.ActivePage Do
  For i:=0 To ControlCount-1 Do
  If Controls[i].Tag = Index Then
  Begin
     Result:=Controls[i];
     Break;
  End;
End;
 
//Далее для использования просто пишешь:
//Если нужно обратиться к Label в которой Tag = 5
  (FindControls(5) As TLabel).Caption:='!!!!!!!';
//Если нужно обратиться к Edit в котором Tag = 18
  (FindControls(18) As TEdit).Text:='!!!!!!!';

Var
  REdit : TRichEdit;
  Edit : TEdit;
 
procedure TForm1.AdvOfficePager1Change(Sender: TObject);
begin
  REdit:=FindControls(1);
  Edit:=FindControls(2);
//Всё остальное...
End;

  If ScrollBar1.Position>(ScrollBar1.Max-ScrollBar1.LargeChange+1) Then
  ScrollBar1.Position:=ScrollBar1.Max-ScrollBar1.LargeChange+1;