Урок на делфи 80 масштабирование рисунка

Задание на Delphi. Меняем масштаб рисунка. #delphi, #tbitmap для выполнение задачи использовал компоненты и функции button, spinedit, StrechDraw и тд. исходник https://dear-ruslan.ru/new/urok/delphi/delphiurok80.php