урок на делфи 34. русский текст в азбуку Морзе

задание на delphi. перевести текст в морзянку https://dear-ruslan.ru/new/urok/delphi/delphiurok34.php для выполнение задачи использовал компоненты и функции Button, memo, lowerCase, Length и тд