Перехват ошибки

Нет повести печальнее на свете, чем повесть о заклинившем Reset'е.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExcept;
end;

Procedure TForm1.MyExcept(Sender:TObject; E:Exception);
begin
  If E is EDatabaseError then
    MessageDlg('Перехвачено исключение', mtInformation, [mbOk], 0)
  else
    { если это не та ошибка, которую вы ищете,
      передайте на обработку дальше }
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 536 • TDictionary Custom Sort 6 567 • Fast Watermark Sources 6 338 • 3D Designer 9 288 • Sik Screen Capture 6 673 • Patch Maker 7 045 • Айболит (remote control) 7 058 • ListBox Drag & Drop 5 927 • Доска для игры Реверси 97 388 • Графические эффекты 7 264 • Рисование по маске 6 559 • Перетаскивание изображений 5 426 • Canvas Drawing 5 798 • Рисование Луны 5 499 • Поворот изображения 5 031 • Рисование стержней 3 586 • Paint on Shape 2 842 • Генератор кроссвордов 3 719 • Головоломка Paletto 2 997 • Теорема Монжа об окружностях 3 800 • Пазл Numbrix 2 504 • Заборы и коммивояжеры 3 190 • Игра HIP 2 158 • Игра Go (Го) 2 093 • Симулятор лифта 2 467 • Программа укладки плитки 2 132 • Генератор лабиринта 2 608 • Проверка числового ввода 2 286 • HEX View 2 618 • Физический маятник 2 229