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

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