Lazarus - použitie Application.OnException

Podľa wiki som urobil výpis zásobníka aplikácie v Lazarovi:
Logging_exceptions

V TForm1.Create mám tento kód:

Application.OnException := @CustomExceptionHandler;

Nerozumiem ale, že prečo ak metóda CustomExceptionHandler exituje v TForm1, tak všetko funguje, ale ak je to v samostatnej unite, tak to už nefunguje. Lazarus mi vtedy vypisuje túto hlášku:

form_main.pas(56,30) Error: Incompatible types: got "<address of procedure(TObject,Exception);Register>" expected "<procedure variable type of procedure(TObject,Exception) of object;Register>"