Дані елементи можуть набувати один із двох виглядів: 
  Увімкнений       Не увімкнений

Тому за їх допомогою у програмний код можна передати логічне значення:
                           True — увімкнений  False —не увімкнений

Прапорець CheckBox

Перемикач RadioButton

Checked
Зміна стану прапорця:

• якщо значення цієї властивості True, то прапорець увімкнений;
• якщо значення властивості False, то прапорець не увімкнений .

Значення змінюється автоматично, хоча його також можна змінити у програмному коді

State
Стан прапорця.
Дає змогу задавати стан увімкнення прапорця за одним із параметрів:

• увімкнений cbСhecked,
• не увімкнений cbUnChecked,
• проміжний стан (сірий) cbGrayed

OnClick

Виникає кожного разу, коли користувач вмикає чи вимикає прапорець на формі після запуску програми на виконання.

OnChange

Також виникає, коли користувач вмикає чи вимикає прапорець.
На відміну від події OnClick, яка відбувається лише під час клацання на прапорці, подія OnChange відбувається в будь-якому разі, коли змінюється стан прапорця — якщо користувач мишею увімкнув-вимкнув прапорець, чи якщо така зміна передбачена у програмному коді.

Зміна передбачена у програмному коді, що виконується після натиснення деякої кнопки, за допомогою команди:

ChB1.Checked:= not ChB1.Checked;

Тоді при натисненні на таку кнопку стан прапорця зміниться на протилежний — відбудеться OnChange , а подія ОnСlіск — ні, адже мишею на прапорці не клацали.

procedure TForm1.BitBtn1Click(Sender: TObject);
  var k1, k2, k3, k4, k5, p1, p2, p3 : boolean;      s, t : string;

begin
    k1 := CheckBox1.Checked;  { логической переменной k1 присваивается значение Checked (false / true)   элемента  CheckBox1  и т.д.}
    k2 := CheckBox2.Checked;
    k3 := CheckBox3.Checked;
    k4 := CheckBox4.Checked;
    k5 := CheckBox5.Checked;

    p1 := RadioButton1.checked; { логической переменной р1 присваивается значение Checked (false / true)    элемента                                                                     RadioButton1  и т.д. }

   p2 := RadioButton2.checked;
   p3 := RadioButton3.checked;

    s := ' ';

    if k1 then s := s +  checkbox1.caption + ' ';   { если значение логической переменной k1 - true,     к значению строковой                               переменной s      присоединяется значение свойства  caption элемента  checkbox1  и т.д.}

    if k2 then s := s +  Checkbox2.caption + ' ';
    if k3 then s := s +  Checkbox3.caption + ' ';
    if k4 then s := s +  Checkbox4.caption + ' ';
    if k5 then s := s +  Checkbox5.caption + ' ';

    if p1 then t :=  ' в корзинке ';   {  если значение логической переменной р1 - true,  строковой переменной t присваивается                                        значение - в корзинке и т.д. }

    if p2 then t :=  ' в обычной упаковке ';
    if p3 then t :=  ' в особенной упаковке ';

    label1.Caption := 'Вы выбрали ' + s +  #13 + t; {формирование значения  (текстового сообщения ) свойства                                                             Caption надписи( метки) label1, #13 - переход на следующую строку при выводе текста в надпись}
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
  end;