Некорректное отображение сообщения об ошибки (MaskEdit в IBDataSet)

[KBO]

Доброе время суток,

У меня есть Dataset, в котором есть поле Field1, которое имеет свойсво EditMask = '00000000;1;_' (важно, чтоб пользователь именно видел количество необходимых символов).
При вводе не всего количества чисел, конечно исключение класса EDBEditError.
Я пытаюсь его поймать:

procedure TForm2.FormCreate(Sender: TObject); 
begin 
  Application.OnException := AppException; 
end; 

procedure TForm2.AppException(Sender: TObject; 
E: Exception); 
begin 
  if E is EDBEditError then 
    Вывод сообщения; 
end;

Оно ловится, выводится сообщение – все нормально.
Но т.к. это форма 2, то после выдачи сообщения, она прячется.
Вопросы:
- Как сделать так, чтоб она не пряталась? (Form2.Show - не помогает)
- насколько корректоно такая обработка исключения?

Заранее спасибо за ответ.