[Neftali [Germán.Estévez]]

Empezado por cocute

Muchas gracias, lo he solucionado de este modo

Creo que así vamos mal...
Tal vez no has entendido lo que hace ese procedimiento. Una prueba:

(1) Comenta la línea del OnCreate.
(2) Pon dos botones con códigos como estos:
(3) Ejecuta y luego haz lo mismo descomentando la línea.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k:Integer;
begin
  i := (50DIV 10 - 5);
  j := 220;
  k := j DIV i;    //!!!!!!!  DIVISION por CERO
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  raise EAccessViolation.Create('Accessssss Violation!!!!!!')
end;

El problema es que con lo que has hecho DESAPARECEN TODAS las excepciones de tu programa.

Lo lógico (dentro de la poca lógica que tiene esto) sería capturar sólo la excepción que necesitas. Y yo añadiría que ya que la capturas, al menos guardarla en algun sitio (log, txt,...).

No se si me explico.