Восстановление соединения

[opencloser]

Проблема в бесконечном вызове события ConnectionLost.
код:

procedure MyConnConnectionLost(Sender: TObject;
  Component: TComponent; ConnLostCause: TConnLostCause;
  var RetryMode: TRetryMode);
begin
  if RetryCount < 2 then
  begin
    Inc(RetryCount);
    RetryMode := rmReconnectExecute;
  end
  
  else begin
    If MessageDlg ('Восстановить соединение?', mtConfirmation, [mbYes, mbNo] ,0) = mrYes then
    begin
      RetryCount:=0;
      RetryMode := rmReconnectExecute;
    end
    else
    begin
      RetryMode := rmRaise;
      ShowMessage('БД  '+MyConn.Server+' не доступна, Программа будет завершена');
      Application.Terminate;
    end;
  end;
end;

Мои действия:
1-запускаю сервер бд (MySQL 5.0)
2-запускаю программу.
3-останавливаю сервер бд
4-появляется окно с вопросом восстановления соединения
5-запускаю сервер бд
6-подтверждаю приостановление соединения, кнопкой ОК.
7-вижу это же окно(цикл бесконечный, соединение имеется, но событие зацикливается).

Почему событие вызывается после восстановления соединения?
Как дать возможность пользователю продолжить работу в программе?

[opencloser]

Пользователь подключается к серверу по WiFi и соединение раз в день обязательно падает(к примеру пошёл на обед и выключил роутер или захватил с собой ноутбук), важно продолжить работу на том же месте где и прервался... к тому же работа в 3-и смены, профилактика(перезагрузка и обновление) только раз в неделю в остальное время 100% свободный доступ к бд. Как вы решаете проблемы со сбоем в сети, сомневаюсь что все программы написаны "правильно".

[Stilet]

Как вы решаете проблемы со сбоем в сети

1) Настраиваю коммутатор на удержание подключения
2) пишу прогу таким образом, что она подключается-работает-отключается.
Это добавляет проблем серверу, но не настолько серьезно.