database - Delphi IBDatabase 切断された場合はどうすればよいですか?

Question

私は大きな問題を解決しようとしています（現時点では私にとって）、あなたが私を助けてくれることを願っています.

私のアプリケーションは開始時にデータベースに接続し、アプリケーションの実行中は接続を維持します。この問題は、接続が失われたときに発生します。アプリケーションを再起動するまで、切断されたままになります。

エラーメッセージは次のとおりです。

ホスト「USER-PC」へのネットワーク要求を完了できません。
接続へのデータ書き込みエラー。
既存の接続がリモート ホストによって強制的に閉じられました。

切断して接続すると問題も解決しますが、どうすれば自動的にそれを行うことができますか? 接続が失われたことをどのように検出できますか?

DBへの接続:

 IBDataBase1.DatabaseName := ServerName + '/' + ServerPort + ':' +
 'LOCAL';
     try
       IBDataBase1.Connected := True;
       Result := True;
     except on E:Exception do begin
       MessageDlg(Message_2 + #13#10 + e.Message, mtError, [mbOk],0);
     end;

使用するデータベースは Firebird 2.5、コンポーネントは IBDatabase、接続にはエイリアスを使用します。問題は、その例外をいつどのようにキャッチするかです。私はたくさんの異なるフォームを持っています。