Optimizado, con excepciones y habilitando o deshabilitando el boton
Código Delphi
[-]procedure TForm1.btatrasClick(Sender: TObject);
begin
PageControl1.TabIndex := PageControl1.TabIndex - 1;
btatras.Enabled := (PageControl1.TabIndex <> 0);
btsiguiente.Enabled := True;
end;
procedure TForm1.btsiguienteClick(Sender: TObject);
begin
PageControl1.TabIndex := PageControl1.TabIndex + 1;
btsiguiente.Enabled := (PageControl1.TabIndex <> (PageControl1.PageCount - 1));
btatras.Enabled := True;
end;
Saludos!