時計ソフトが終了してしまう

---

時計ソフトを作ったのですが、15分くらいすると
止まってしまいます。エラーではないようなのですが、
何か時間に関する設定項目があるのでしょうか。
TTimerを使って毎秒書き換えているだけなのですが。
考えられる原因を思いつきません。

皆さんならどんな原因が疑わしいと思いますか？
よろしくお願いします。

編集    削除

---

TTimer(Interval=1000)で分の値をIncして、分の値が60なら分の値を0にし時の値をInc〜♪というような作りなら、終了しないと思います。
どんな仕組みなんですか？

編集    削除

---

外しているかもしれませんが

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ViewTokei()   // 時計描画処理
end;

というようにタイマー内で時間のかかる処理がありませんか？
以前このような処理のとき何故かアプリケーションがエラーも
無く終了した経験があります。
対処方法としては

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ViewTokei()   // 時計描画処理
  Timer1.Enabled := True;
end;

とタイマー内で再度イベントが発生しないように止めるようにしています。

編集    削除

---

みなさん、レスありがとうございます。
takeさんの方法ためしてみます。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。