procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := AppOnException; ... end; procedure TForm1.AppOnException(Sender: TObject; E: Exception); begin { No hacer nada } end;