i := StrToInt(Edit1.Text); или i := StrToIntDef(Edit1.Text, 0); тогда если строка в Edit-е не может быть преобразована в целое число, i станет 0. П. С. И не называй переменные i и Edit1.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.