Capturar Errores con Try, Finally, End

[GerTorresM]

Hola a tod@s:


la duda que me asalta el día de hoy es la siguiente como poder capturar un error:

en orden de ideas la respuesta es con Try, Except y End, desde código este sería un ejemplo

Código Delphi [-]
try
  instrucción
except on exception_local : Exception do    
  tratamiento al del error capturado // para el caso el mensaje de error generado Showmessage(exception_local.Message);
end;

Pero la pregunta ahora es ¿Como poder capturar el error utilizando las sentencias Try, Finally, End?. Ya que para el efecto pienso en hacerlo mediante creación de objetos.

Código Delphi [-]
Try
 Creo el objeto
 establezco sus propiedades
 realizo los metodos necesarios
Finally
  En caso de error trato el error
  objeto.Free
End

Agradezco de antemano sus comentarios.



gertorresm
Colombia