Globale Exceptions

[Hansa]

Hi Leute,

das hier ist eine Newbie Frage, wahrscheinlich liegt es nur an einer Compiler-Einstellung. Ich will verschiedene Exceptions in der ganzen Application abfangen und gleich behandeln. Deshalb habe ich eine Unit gemacht, in der steht folgendes :

Code:

PROCEDURE ExceptGerMeldung (Sender : Tobject;E : Exception);
  BEGIN
    MessageDLG (' Fehler    : ' + E.Message+#10#13+
                ' Fehlertyp : ' + E.Classname+#10#13+
                ' Sender    : ' + Sender.Classname,mtError,[mbOK],0);
  END;

In der Hauptform steht :

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := ExceptGerMeldung;
end;

Jetzt kommt die Fehlermeldung : "Incompatible Types: method Pointer and regular Procedure". Waskann das sein?

Gruß
Hansa