В графическом режиме добавлять командные кнопки нельзя да и нажатия на них отлавливаться не будут. Так что убирай строки добавления кнопки Выход. Если так кортит добавить кнопку напиши что-то типа:
DrawText('Выход', GetWidth-GetStringWidth('Выход'), GetHeight-GetStringHeight('В'));
Repaint;
repeat
Delay(20); n:=GetKeyClicked;
if (n=-4) or (n=-7) or (n=-22) then break;
until false;
или убери переключение в графический режим (ShowCanvas), а результаты вычислений выводи на экран строкой:
ClearForm; n:=FormAddString('Длина: '+l);