// відобразимо суму замовлення

        Label3->Caption = FloatToStr(summa);

Функція FloatToStr приводить змінну float до строкового типу.

Аналогічним чином реалізуємо логіку для перемикачів CheckBox2, CheckBox3 і CheckBox4 («сік», «кава» і «чай» відповідно):

// перемикач "сік"

void __fastcall TForm1::CheckBox2Click(TObject *Sender)

{

        if (CheckBox2->Checked) // якщо перемикач включено

        {

                summa += 3.00;

        }

        else  // якшо перемикач вимкнено

        {

                summa -= 3.00;

        }

        // відобразимо нову суму замовлення

        Label3->Caption = FloatToStr(summa);

}

//---------------------------------------------------------------------------

// перемикач "кава"

void __fastcall TForm1::CheckBox3Click(TObject *Sender)

{

        if (CheckBox3->Checked) // якщо перемикач включено

        {

                summa += 2.00;

        }

        else  // якшо перемикач вимкнено

        {

                summa -= 2.00;

        }

        // відобразимо нову суму замовлення

        Label3->Caption = FloatToStr(summa);

}

//---------------------------------------------------------------------------

// перемикач "чай"

void __fastcall TForm1::CheckBox4Click(TObject *Sender)

{

        if (CheckBox4->Checked) // якщо перемикач включено

        {

                summa += 1.50;