BCB初心者なんですが、不可解な減少が起きてこまってます。

ボタンを1つ置いて簡単な処理を記述してるんですが、
ボタンをエンターキーを押すと、2回押すごとに例外エラーが発生します。
マウスでクリック連打したときは何もおこらないのに・・・