Підпрограма забезпечення доступу до компонентів CheckBox1, CheckBox2 і кнопки Button1:

procedure TForm1.Edit4Change(Sender: TObject);

Для запису у файл введених даних застосовують подію OnClick для кнопки Button1 («Додати»).  Підпрограма обробки цієї події:

procedure TForm1.Button1Click(Sender: TObject);

Якщо файл містить дані, то можна переглянути його вміст, перейшовши на вкладку «Перегляд даних» і натиснувши на кнопку «Переглядання усіх записів» (Button3). Підпрограма обробки події OnClick для кнопки Button3:

procedure TForm1.Button3Click(Sender: TObject);

Якщо виконується перегляд усіх записів, тоді з’являється кнопка “Завершити переглядання даних”, підпрограма якої:

procedure TForm1.Button4Click(Sender: TObject);

Після введення даних та їхнього переглядання можна приступити до розв’язання поставлених задач, а саме, можна переходити на закладки «Запит1», «Запит2», «Запит3».

Закладка «Запит1». Дані про працівників вводиться в компонент Edit6 і Edit7. Спочатку активізований лише компонент Edit6. Edit7 активізується процедурою:

procedure TForm1.Edit6Change(Sender: TObject);

Після занесення даних в Edit7 активізується кнопка «Пошук» (Button5) процедурою: ComboBox3

procedure TForm1.Edit7Change(Sender: TObject);

При натисненні на кнопку «Пошук» інформація по запиту «Працівники певної посади з найбільшим заробітком» з’являється в компоненті Memo1 і після цього з’являється кнопка «Завершити перегляд» (Button6). Відповідна процедура:

procedure TForm1.Button5Click(Sender: TObject);

При натисненні на кнопку «Завершити перегляд» зникає інформація по запиту на закладці «Запит1». Відповідна процедура:

procedure TForm1.Button6Click(Sender: TObject);