>>159 ああ　ゴメン
val(Edit1.Text,IntBunshi[1],dmy1);
val(Edit2.Text,IntBunshi[2],dmy2);
if(dmy1<>0) or (dmy2<>0) then ShowMessage('値が入力されていません') ;

val　は数字なら　数字にして代入してくれて
数字でないなら　何文字目が数字でないと思ったかを３番目の引数で返してくれる

で３番目の引数が０かどうか見れば数字だったかどうかがわかるという事