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.