Excepciones en Lazarus

[cd.rafael]

Cordial saludo,

He visto en varios foros y páginas que hay un problema con el manejo de excepciones en Lazarus, ya que el bloque TRY, FINALLY no realiza su función debidamente.

Ejemplo:

Código Delphi [-]
try
  ShowMessage(IntToStr(StrToInt('a1')));
finally
  ShowMessage('Número no válido');
end;

A pesar de que está en un bloque TRY FINALLY, el programa genera el error y no continua su ejecución, dentro o fuera del entorno de Lazarus.

Solicito de su colaboración para indicarme cómo puedo tratar los errores en el código.

De antemano, gracias por su colaboración.