Вот, примерно так
https://disk.yandex.ru/d/rwkEImFl8TyjlgИз замечаний, которые относятся ко всем "новичкам"
1) НИКОГДА не оставляйте свойства Name автоматически назначенными. Первое, что следует сделать, поместив компонент
на форму - дать внятное название на английском языке (никаких транслитов!). Исключением являются компоненты к которым никогда не бывает явных обращений в тексте программы, например, TLabel. Очень желательно предварить название префиксом из двух-трех символов, соответствующих типу компонента. cb - для TCheckBox, rb для TRadioBox.
Это не только облегчит чтение текста программы, но и поможет использовать автодополнение.
2) Избегайте использовать одну величину в разных смыслах. В начальном варианте программы Цена ингридиентов есть
в качестве составной части заголовка и есть значение, которое добавляется к расчетной цене. Чтобы этого избежать, я добавил
специальные компоненты для цены ингридиентов.
3) Выделяйте смысловые блоки в отдельные процедуры/функции. В данном случае я выделил расчет скидки в отдельную функцию
CalcDiscount