Try и except при выполнении запроса с ошибкой

[Droid]

try
...
...
...
except
  on E: Exception do
  begin
  Application.MessageBox('ФФФФФ ?','ААААА !');
  showmodal;
  end;
end;

Подскажите как можно сделать так, чтобы при выполнении запроса с ошибкой, у меня не закрывалась форма... я написал showmodal; она все равно закрывается... и данные введенные пользователем пропадают тупо.

[edgy]

И на какое событие у вас навешан этот try except? Вместо showmodal укажите Exit. Это будет просто выход из процедуры. И Application уберите. Просто MessageBox.

[Droid]

Сообщение от edgy

И на какое событие у вас навешан этот try except? Вместо showmodal укажите Exit. Это будет просто выход из процедуры. И Application уберите. Просто MessageBox.

Application - мне нужен.
Exit; - тут не канает.
а событие стандартно на кнопку Click;

[edgy]

Проверил у себя. Смоделировал подобную ситуацию с MessageBox. Все прошло нормально. Форма не закрылась. Возможно, что у вас еще что-то цепляется. Пошаговую отладку пробовали? Close нигде не проскакивает?

[bezOn]

Зачем такой огород городить?
Всё проще делается.

  TRY
    ...
    ...
    ...
    ...
    TQuery.Open;

  EXCEPT
    Application.MessageBox(
        'Ошибка открытия запроса!',
        'Ошибка', MB_OK+MB_ICONERROR);
  END;