Можно глобально к данному вопросу подобраться, примерно так
Код:
...
procedure FormCreate(Sender: TObject);
procedure MyOnException(Sender: TObject; E: Exception);
...
procedure TForm1.MyOnException(Sender: TObject; E: Exception);
begin
ShowMessage('Поймано предупреждение: ' + E.Message);
// вот здесь что-то делаем
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:= MyOnException;
end; наверное нужно так же в
MyOnException и Sender`а проверять, в смысле проверка на предмет получения только ошибки типа EListError...
А вообще такой ещё есть фортель, чтоб программа не останавливалась при ИС, можно в меню
Tools ->
Debugger Options... на вкладке
Language Exceptions снять птису с чекбокса
Stop on Delphi Exceptions, хоть раздражать среда во время отладки не будет своими "выкидонами" с остановкой
