[ecfisa]

Hola.

Los desbordes de índice también se pueden evitar de este modo:

Código Delphi [-]
procedure TForm1.btSiguienteClick(Sender: TObject);
begin
  with PageControl1 do
  begin
    if ActivePage.PageIndex < PageCount-1 then
      Pages[PageControl1.TabIndex + 1].Show
    else
      Pages[0].Show;
  end;
end;

procedure TForm1.btAnteriorClick(Sender: TObject);
begin
  with PageControl1 do
  begin
    if ActivePage.PageIndex > 0 then
      PageControl1.Pages[PageControl1.TabIndex - 1].Show
    else
      Pages[PageCount-1].Show;
  end;
end;

Saludos.