Не регистрируется подключение [IB6.x]

[pushkin42]

Пишу программу, работающую с СУБД Firebird (IB6).

Цель на данном этапе
Отработать ситуацию с потерей соединения клиентской части с сервером,
например, при потере линка на сетевой карте или просто падении сервера.

Выполненные шаги
При потере соединения (проверка выполняется методом TIbDatabase.TestConnected)
открывается форма, которая содержит:
- 2 Radiobutton
- 1 TEncartaButton (TButton с графическим оформлением)
- несколько ничего не значащих Label'ов
- TTimer с интервалом 1 секунда

На форме пользователю предлагается выбрать один из двух вариантов:
завершить работу или ожидать восстановления подключения.

В первом случае при нажатии кнопки приложение закрывает соединение
(если это возможно) и завершает работу.

Во втором случае непрерывно выполняется цикл

PHP код:

while not DbConnected do begin
  Application.ProcessMessages;
  dmGlobal.ibDatabase.Connected := True;
end; 


PHP код:

procedure DbConnected: Boolean;
  Result := dmGlobal.ibDatabase.TestConnected;
end; 


dmGlobal - TDataModule, ibDatabase - TIbDatabase
Метод подключения - TCP

По идее, при выполнении цикла должны выполняться попытки подключения к серверу
методом ibDatabase.Connected := True; но, к сожалению,
у меня ничего не получается.

Вопрос
Как можно грамотно организовать обработку потери соединения?