Построение блокнотов

Компоненты PageControl, TabControl (TabSet) и TabSheet применяют для обработки страниц и ярлыков. TabSheet используется внутри компонента PageControl. Компонент TabControl (TabSet) используется для построения автономных ярлычков (не связанных со страницами). С помощью компонента PageControl можно построить приложение или диалоговую панель, используя понятие многостраничности или блокнота. Для добавления новых страниц (табличных листов) используется локальное меню компонента PageControl. Каждый объект TabSheet имеет собственный заголовок, который выводится на экран как ярлычок. Переключение между страницами на этапе проектирования можно производить с помощью локального меню компонента PageControl или щелчком на ярлычке. Если вы поместите компонет на странице блокнота, то он будет доступен только на этой странице. Чтобы применить один компонент для всех страниц, его необходимо поместить в форму вне компонента PageControl (или до выравнивания его с областью клиента) и затем переместить его на передний план, вызвав команду Bring to Front из локального меню формы. Допустим, что мы поместили в форму две кнопки, которые позволяют передвигаться по страницам: Next, Previous, которые представляют альтернативу использования ярлычков. Код, связанный с одной из кнопок:

procedure TForn1.BitBtnClick(Sender:TObject);

Begin