[MrBadge]

я вот так сделал) ... правда, если ввод неверный, то последнее сообщение не выводится, а просто прога вылетает ...

Код:

Try StrToInt(Edt2.text);
    ...
  except
   on Exception: EConvertError do
  ShowMessage('Введите правильно число!');