Para manejar centralizadamente los errores (excepciones) podrías colocar una componente TApplicationEvents e implementar su evento OnException.
También podrías definir un procedimiento
Código:
procedure ManejaExcepcion(E: Exception);
begin
...
end;
y en cada bloque try-except declarar un objeto Exception:
Código:
try
...
except
on E: Exception do
ManejaExcepcion(E);
end;
// Saludos