Maneja de errores (try except)

[brookly_n]

HOla a todos,

En una aplicacion lo que quiero es que si al intentar abrir un archivo de texto este no existe, se capture el error que se genera y mostrar uno personalizado. He intentado con el siguiente ejemplo:

Código Delphi [-]
  try
    AssignFile(fIN,nombreArchivo);
    reset(fIN);
    showmessage('Archivo abierto de manera correcta');
    closeFile(fIN);
  except
    showmessage('ERROR: Se produjo un error al intentar abir el archivo');
  end;

pero no funciona, pues cuando le pongo un archivo que no existe, me sigue saltando el error por defecto de File Not Found y no sale el showmessage.

Alguna idea de que puede estar pasando?

GRacias a todos!