OnException bez TApplication?

Witam

Prosty programik, bez formy, staram się użyć jak najmniej bibliotek. Więc Forms też bym się pozbył. Tylko, że w nim jest TApplication.A on ma zdażenie OnException - które jest szalenie przydatne, żeby samemu obsłużyć komunikat o błędzie. Jak to zrobić bez TAplication???
A może po prostu czegoś nie kumam i to się daje bardzo łatwo i na wiele sposobów?
Będę wdzięczny za pomoc.

W module system masz takie zmienne:
var ExceptProc: Pointer; {Points to the lowest-level RTL exception handler.}
var ErrorProc: Pointer; {Points to the RTL run-time error handler.}

Popróbuj z nimi, ja ich nie używałem.