Exception abfangen und ausgeben funktioniert nicht

[mkinzler]

Delphi-Quellcode:

on e:Exception do
  Application.MessageBox(PChar('Es trat ein Fehler auf:'+sLineBreak+e.Message), 'Fehler', 16);