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

Нет повести печальнее на свете, чем повесть о заклинившем 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 116 • TDictionary Custom Sort 6 197 • Fast Watermark Sources 5 997 • 3D Designer 8 884 • Sik Screen Capture 6 333 • Patch Maker 6 748 • Айболит (remote control) 6 738 • ListBox Drag & Drop 5 603 • Доска для игры Реверси 96 082 • Графические эффекты 6 953 • Рисование по маске 6 219 • Перетаскивание изображений 5 122 • Canvas Drawing 5 493 • Рисование Луны 5 198 • Поворот изображения 4 746 • Рисование стержней 3 358 • Paint on Shape 2 600 • Генератор кроссвордов 3 496 • Головоломка Paletto 2 789 • Теорема Монжа об окружностях 3 595 • Пазл Numbrix 2 362 • Заборы и коммивояжеры 3 039 • Игра HIP 1 996 • Игра Go (Го) 1 918 • Симулятор лифта 2 275 • Программа укладки плитки 1 979 • Генератор лабиринта 2 434 • Проверка числового ввода 2 118 • HEX View 2 452 • Физический маятник 2 071