Создать свой собственный обработчик исключительной ситуации для ошибки преобразования типов

помогите пожалуйста! нужно создать свой собственный обработчик исключительной ситуации (блок) для ошибки преобразования типов. При этом создать дополнительную страницу с сообщением об ошибке в случае возникновения исключительной ситуации. Сама прога на дельфи ниже .
2 ответа

procedure TForm1.Edit(Sender: TObject; var Key: Char);
begin
 
// key-символ, соотвтествующий нажатой кнопке
//Если символ не доступный, то процедура заменяет его
// на символ с кодом 0. В результате этого в поле
//редактирования не появляется, и у пользователя создается
//впечатлениея что программа не реагирует на нажатие некоторых клавиш
 
case Key of
 
'0'..'9': ; // цифра;
 
#8 : ; //клавиша <Space>
 
#13 : Edit2.SetFocus; //клавиша <Enter>
 
//остальные символы запрещены
 
Else Key :=Chr(0); //Символ не отображать
 
end;
 
end;
Можно без особых услили переделать под StringGrid


Только вот этот обработчик я итак на всех работах делала.... а именно в этой работе надо через блок try ... except