Przechwytywanie wyjątków Invalid input value. Use escape key to abandon changes

Znalazłem takie rozwiązanie na te komunikaty może sie komuś przyda...
Ja osobiście zastosowalem tę procedurę do okna z maską, kiedy po źle wprowdzonych danych wyskakiwał mi błąd: Invalid input value. Use escape key to abandon changes. Oto kod:

TForm1 = class(TForm)
  // .....
  private
    procedure Wyjatki(Sender: TObject; E: Exception);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := Wyjatki;
end;

procedure TForm1.Wyjatki(Sender: TObject; E: Exception);
const
  blad  =  'Invalid input value.  Use escape key to abandon changes';
begin
  if E.Message = blad then
    MessageDlg('Zle wprowadzona dana',mtWarning,[mbYes],0);
end;

Można tak oprogramować inne wyjatki.