Yo lo hago con el componente
TJvDebugHandler.
En el evento
OnOtherDestination pongo el siguiente codigo :
Código Delphi
[-]
Application.MessageBox(PChar(ErrorHandler.ExceptionStringList[0] + #13#10 +
ErrorHandler.ExceptionStringList[1]), 'Error..', MB_ICONERROR);
Asi el usuario solo ve el mensaje del error.
El detalle del error con el numero de linea queda registrado en el fichero indicado en la propiedad
Filename. Ademas la propiedad
UnhandledExceptionsOnly hace que solo los errores no tratados en un bloque
try..except sean mostrados.
Espero que sirva..