>>147
ありがとうございます。
今落としてます。
その前の行は

IntBunshi[1] := StrToInt(Edit1.Text);
IntBunbo[1] := StrToInt(Edit2.Text);

となっております。