Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 681 • TDictionary Custom Sort 6 687 • Fast Watermark Sources 6 464 • 3D Designer 9 403 • Sik Screen Capture 6 808 • Patch Maker 7 219 • Айболит (remote control) 7 201 • ListBox Drag & Drop 6 049 • Доска для игры Реверси 97 684 • Графические эффекты 7 377 • Рисование по маске 6 675 • Перетаскивание изображений 5 529 • Canvas Drawing 5 919 • Рисование Луны 5 666 • Поворот изображения 5 146 • Рисование стержней 3 740 • Paint on Shape 2 936 • Генератор кроссвордов 3 854 • Головоломка Paletto 3 079 • Теорема Монжа об окружностях 3 893 • Пазл Numbrix 2 561 • Заборы и коммивояжеры 3 314 • Игра HIP 2 278 • Игра Go (Го) 2 188 • Симулятор лифта 2 589 • Программа укладки плитки 2 194 • Генератор лабиринта 2 699 • Проверка числового ввода 2 349 • HEX View 2 678 • Физический маятник 2 343

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

Нет повести печальнее на свете, чем повесть о заклинившем 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;