>>146
try
　IntBunshi[1] := StrToInt(Edit1.Text);
　IntBunbo[1] := StrToInt(Edit2.Text);
　(処理)
except
　on E:Exception do ShowMessage(E.Message);
end;
としませう。
>>146に書かれた何も入力されてないエラーも含め、全て例外が面倒をみてくれます。