例外が出るのが嫌なら val　を使って

var dmy1,dmy2:Integer;
・・・

val(Edit1.Text,IntBunshi[1],dmy1);
val(Edit2.Text,IntBunshi[2],dmy2);
if(dmy1<>0) or (dmy2<>0) then ShowMessage(E.Message);

と書く事も出来るよ。

ただし 動作は少し違う。
　Edit1でエラーでも Edit2の数字が代入されてしまう