урок на делфи 26. поиск самой большой строки в memo и listbox

задание на delphi. перебрать все строки и найти самую длинную строку в listbox и memo. https://dear-ruslan.ru/new/urok/delphi/delphiurok26.php для выполнение задачи использовал компоненты и функции ListBox, Memo, Length,Label1, Button.