Como usar el ApplicationEvents ?

[Raptor]

Gracias por responder tan rapido, son mejores que lo tipos de las peliculas del oeste.

pero realmente lo que quiero es algo parecido a esto
saber cual es el error con componente y luego desplegar mensaje

con este ejemplo tendria que copiarlos muchas veces mientras que con el componentes seria una sola vez ... gracias


try
Vl_Produccion := Trunc((Table1Logrado.value / Table1Objetivo.value) * 100);
except
on E: EConvertError do
begin {1}
Vl_Produccion :=0;
ShowMessage(format('El campo Objetivo es Igual a 0 para la Tarjeta ====> : %s',[Table1Tarjeta.Value]));
end; {1}

on E: EZeroDivide do
begin
Vl_Produccion :=0;
ShowMessage(format('El campo Objetivo es Igual a 0 para la Tarjeta ====> : %s',[Table1Tarjeta.Value]));
end;

on E: EInvalidOp do
begin
Vl_Produccion :=0;
ShowMessage('Usted esta realizando una operación no valida '+CRLF+'Revisar valor de : Objetivo y/o Logrado no pueden ser igual a 0');
exit;
end;
end; {try except}



--[Dar es mejor que recibir]--