Alle Exceptions abfangen

[Meflin]

also so ganz funzt des noch net! es werden zwar keine exceptions ausgegeben, aber auch die dialoge erscheinen nciht und ausserdem reagiert die procedure in der die exception ausgelöst wurde nimmer. woran könnte das nun wieder liegen? ich habe genau den code von dem link

Delphi-Quellcode:

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  if Sender is TComponent then
    MessageDlg(Format('Es ist folgender Fehler aufgetreten:%s%s%s'+
    'Fehlertyp:%s%s%sSender:%s%s [%s]', [#10#13, E.Message,
    #13#10#13#10, #10#13, E.ClassName, #10#13#10#13, #13#10,
    TComponent(Sender).Name, Sender.ClassName]), mtError, [mbOk], 0)
  else
    MessageDlg(Format('Es ist folgender Fehler aufgetreten:%s%s%s'+
    'Fehlertyp:%s%s%sSender:%s%s', [#10#13, E.Message, #13#10#13#10,
    #10#13, E.ClassName, #10#13#10#13, #13#10, Sender.ClassName]),
    mtError, [mbOk], 0);
end;